ich möchte in Excel eine Besucherliste bauen, wo nach der Eingabe die Liste nach dem Datum sortiert wird.
Habt Ihr eine Idee, wie ich das umsetzen kann?
Viele Grüße
Jörg
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Leute") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("C2:C" & loLetzte), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal 'Spalte nach der sortiert werden soll, Spalte C bei Bedarf ändern und Reihenfolge auf oder Absteigend bei Bedarf ändern
With .Sort
.SetRange Range("A2:F" & loLetzte) 'gesamter Bereich der sortiert werden soll, ebenfalls bei Bedarf den Bereich A2:F ändern
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub