nochmal zu datum
31.03.2003 14:40:12
karsten
Cells(1, 1) = Format(Date, "YYYY")
End Sub
...schreibt immer den 25.06.1905 in die Zelle! Hmmm???