title image


Smiley Datenbereich per VBA sortieren
Der benutze Bereich der Spalte A soll aufsteigend sortiert werden. Die Spalte ist als einzige Spalte belegt und hei keinen Spaltenkopf. Die Variable introw enthält die letzte Zeilennummer. Bis zur Markierung finktioniert alles. Die nachfolgende Zeile (übernommen aus dem Makrorecorder bricht immer mit folgende Fehlermeldung ab:



Laufzeitfehler 1004 Der Sortierbezug ist ungültig. Überprüfen Sie ob sich der Sortierbezug innerhalb der Markierung befindet und ob das Feld nach nicht den gleichen Bezug enthält oder leer ist. Ich verstehe nicht, warum das aufgezeichnete Makro funktioniert und hier im Code gibt es Fehler.





With Sheets("Daten")

.Activate

.Range("A1:A" & introw).Select

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

End With

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: