Automatische Datumsvergabe funktioniert nicht
10.11.2003 15:17:33
Juie
ich sollte in einer Datei immer das letzte Speicherdatum haben.
Dafür habe ich im Objekt "DieseArbeitsmappe" folgenden Code eingefügt.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Sheets(8).Range("P1").Value = Now()
End Sub
Leider funktioniert es nicht und ich weiß nicht warum.
Kann mir einer helfen.
Im Vorraus schon mal besten Dank
Juie