ich suche eine Möglichkeit eine Liste nach Datum (SpalteA)zu sortieren.
Dabei soll das nächste aktuelle Datum oben stehen. Die abgelaufenen sollen sich unten angliedern.
Vielen Dank im vorraus
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("B4:B60")
For Each RaZelle In Range(Target.Address)
If Not Intersect(Target, RaBereich) Is Nothing Then
Range("B3:E60").Sort Key1:=Range("B3"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Exit For
End If
Next RaZelle
Set RaBereich = Nothing
End Sub