Hi!
Ein Makro mit diesem Code erstellen:
Sub auto_open()
If Sheets("Tabelle1").Range("A1") = "" Then
Sheets("Tabelle1").Range("A1") = Date
End If
End sub
Damit wird das Datum nur in die Zelle geschrieben, wenn die Zelle noch leer ist.
Das Makro muß auto_open genannt werden, damit es automatisch ausgeführt wird.
mfg
WB
|