Datum
05.05.2004 14:09:10
Philipp
Wo liegt mei Fehler?
Es soll die Zahl 48 raus kommen (entsprechend der Anzahl der Tage)
Sub test()
Dim x As Long
x = Format("22.06.2004", "DD.MM.YYYY") - Now()
Cells(1, 1).NumberFormat = "general"
Cells(1, 1) = x
End Sub
Gruss Philipp
Anzeige