Hallo Forum-Team,
ich würde gerne ein anderes Tabellenblatt sortieren mit
Dim ws As Worksheet
Set ws = Workbooks("kalender.xlsm").Sheets("erfa")
ws.Range(Columns(1), Columns(50)).Sort _
Key1:=ws.Cells(2,2), Order1:=xlAscending, _
Key2:=ws.cells(2,5), Order2:=xlAscending, _
Header:=xlYes
~f~
aber Fehlermeldung: Die Methode'Range'für das Objekt '_Worksheet' ist fehlgeschlagen
es funktioniert nur mit
~f~
Dim ws As Worksheet
Set ws = Workbooks("kalender.xlsm").Sheets("erfa")
ws.Range("A1:AX2000").Sort _
Key1:=ws.Range("B2"), Order1:=xlAscending, _
Key2:=ws.Range("E2"), Order2:=xlAscending, _
Header:=xlYes>
Gerne würde ich mit ROWS, COLUMNS und CELLS arbeiten, um das Alphabet zu umgehen in den Spalten. Habt ihr da einen Tipp für mich?
Danke schon mal im Voraus.
Gruß Wolfgang