wer kann mir sagen, wie ich in einer Zelle das Datum der letzten Speicherung der Datei eintragen kann? (Entsprechend Word "SPEICHERDAT")
Danke,
Thomas
versuchs hiermit --> Code in die gewünschte Tabelle
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Exit Sub
Range("A1") = "Geänd. von " & _
Application.UserName & _
" am " & _
Format(Date, "dd.mm.yy")
'ActiveWorkbook.Save
End Sub
gruss geri
geh mit F11 in die Entwicklungsumgebung, doppelklicke auf "Diese Arbeitsmappe" und schreib da rein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1").Value = Date
End Sub
Damit wird das Datum in der Zelle aktualisiert, wenn Du speicherst. Und dann natürlich auch so ausgedruckt.
Statt A1 schreib die Zelle, in der Du das Datum haben willst.
Gruß
Franz