wer kann mir sagen, was an diesem Makro fehlt?
Habe diesen Makro anscheinend aus dem Forum falsch übernommen. Das ist allerdings schon eine Zeit her und ich weiss nicht wie ich diesen Beitrag wieder finde.
Sub Sortieren()
r = Cells(65536, 1).End(xlUp).Row '<<<< sucht die letzte Zeile
Range("A2:AQ" & r).Select '<<<< markiert von A2 bis AQ-letzte Zeile
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
[A3].Select
End Sub
Vielen Dank und Grüße
Gisela