Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Letztes Speicherdatum in die Fußzeile aller Tabellenblätter

Gruppe

Kopf/Fußzeile

Problem

Wie kann ich das letzte Speicherdatum in die Fußzeile aller Tabellenblätter eintragen lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile