In Spalte E und G stehen Datum(se), diese sollen in beiden Spalten der Reihe nach der sortiert werden.
Zur Zeit verwende ich diesen Code, diese sortiert aber erst in Spalte G und dann in Spalte E.
Private Sub CommandButton1_Click()
Range("B5:J24").Select
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Sort Key1:=Range("G5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("D5").Select
End Sub
Möchte die Tabelle erweitern.
Gruß Willy