Ich möchte per Makro Daten sortieren. Mit dem Makro Recorder habe ich den Code aufgezeichnet. Aber da in der Tabelle noch Daten hinzu kommen wird die Sortierung später nicht klappen. Wie geht das flexiebel?
Sub Sortieren()
Range("D4").Select
Range("A4:BB506").Sort Key1:=Range("D4"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Gruß Achim