ich versuche mehrere, nicht angrenzende Spalten zu sortieren. Der variable range B2:B&ende sowie K2:S&ende funktionieren, sobald ich F2:F&ende hinzunehme, streikt das Makro - "falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft". Bei "Orientation:=xlTopToBottom ist ein gelber Pfeil daneben...
In den Spalten B und F befinden sich als Text formatierte Datumswerte.
Jmd eine Idee? Gruß Chris
Sub sortieren()
ende = Sheets("Tab").Range("S2:S1000").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:= _
xlPrevious).Row
Sheets("Tab").Range("B2:B" & ende, "F2:F" & ende, "K2:S" & ende).Sort _
Key1:=Sheets("Tab").Range("M2"), Order1:=xlDescending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
end
Sub