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 !