Gruppe
Druck
Problem
Wie kann ich das letzte Speicherdatum in die Fußzeile aller Tabellenblätter eintragen lassen?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.PageSetup.LeftFooter = _
"Gespeichert am: " & Format(Date, "dd.mm.yyyy")
Next wks
End Sub