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 !
|