VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Letztes Speicherdatum in die Fußzeile aller Tabellenblätter

Gruppe

Druck

Bereich

Kopf/Fußzeile

Thema

Letztes Speicherdatum in die Fußzeile aller Tabellenblätter

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