Tabelle nach Datum(vorgegeben in Spalte D) sortieren

Sub Sortieren_nach_Datum()
' Sortieren_nach_Datum Makro
' Sortieren der Tabelle nach Datum - welches in Spalte D steht
  
  Range(A1:Z100).Sort _
    Key1:=Range(D1), Order1:=xlDescending, _
    Header:=xlYes-> oder xlNo->xlGuess ist Mist
End Sub

Option Explicit

Sub SelektierterBereich_StringdatumInDatumUmwandeln()
 ->*** Im selektierten Bereich werden
 ->*** alle als Text / Variant-Text formatierten Zellen mit Datum
 ->*** in das Datumsformat mm.dd.yyyy gewandelt
  
  Const cDATUMSFORMAT = dd.mm.yyyy
  Dim r As Range, Zelle As Range
  Dim lZahl As Long, dValue As Date
  
  lZahl = 0
  
  Set r = Selection
  
  For Each Zelle In r
   ->Format Variant oder Text ?
    If Zelle.NumberFormat = Standard Or Zelle.NumberFormat = @ Then
     ->Zelle enthält Datum ?
      If IsDate(Zelle.Value) Then
       ->Datum auslesen (als String)
        dValue = Zelle.Value
       ->Zelle als Zahl formatieren und Zahl einfügen
        Zelle.NumberFormat = 0
        Zelle.Value = lZahl
       ->Zelle als datum formatieren und datum wieder einfügen
        Zelle.NumberFormat = cDATUMSFORMAT
        Zelle.Value = dValue
      End If
    End If
  Next
  
AUFRAEUMEN:
  Set r = Nothing: Set Zelle = Nothing
End Sub