Sub Datum_Multi()
Cells(0, 1) = DateSerial(2003, 9, 22) * 4
Cells(1, 1) = Now() * 4
Cells(2, 1) = Date * 4
Cells(3, 1) = DateValue("" & Date & "") * 4
End Sub
Sub Datum_Multi()
Cells(0, 1) = DateSerial(2003, 9, 22) * 4 ->zeile 0 gibt es doch nicht?!
Cells(1, 1) = Now() * 4
Cells(2, 1) = Date * 4
Cells(3, 1) = DateValue("" & Date & "") * 4
End Sub