Datum richtig formatieren 27.07.2002
 

Schreiben Sie ein Datum in eine Zelle, so ist es wichtig,
dass dieses richtig formatiert wird.
Andernfalls können diverse Probleme auftreten, wenn man auf diese
Zelle zugreifen möchte - beispielsweise funktioniert das
Sortieren nicht richtig.

Sub Datumsformat()
    Set Zelle = ActiveSheet.Range("A1")
    With Zelle
        .Value = Now
        .NumberFormat = "dd/mm/yyyy"
        .Value = DateValue(Zelle.Value)
    End With
End Sub
Entscheidend ist nicht nur die Format-Anweisung,
sondern in erster Line die Umwandlung mit DateValue !