VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Tabelle nach Datumseintrag automatisch sortieren

Gruppe

Ereignis

Bereich

Change

Thema

Tabelle nach Datumseintrag automatisch sortieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change