Gruppe
Ereignis
Problem
Wie kann ich eine Tabelle nach einem Datumseintrag in Spalte A automatisch sortieren lassen?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Range("A1").CurrentRegion.Sort _
Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub