Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabelle nach Datumseintrag automatisch sortieren

Gruppe

Change

Problem

Wie kann ich eine Tabelle nach einem Datumseintrag in Spalte A automatisch sortieren lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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