Letztes Sicherungsdatum in Fusszeile anzeigen (VBA)


Letztes Sicherungsdatum in Fusszeile anzeigen (VBA)

Letztes Sicherungsdatum in Fusszeile anzeigen (VBA)

Um das letzte Sicherungsdatum der Datei in die Fußzeile des aktiven Tabellenblattes zu über­nehmen, können Sie ein automatisches Makro für das Ereignis „BeforeSave“ („vor dem Speichern“) verwenden.

So geht´s:

  • Wechseln Sie in der entsprechenden Ar­beits­mappe mit Alt + F11 in die VBA-Ent­wick­lungsumgebung.
  • Wählen Sie im linken Listenfeld über dem Editor den Eintrag Workbook und im rechten Listenfeld über dem Editor den Eintrag BeforeSave.
  • Excel erzeugt nun selbstständig den „Rahmen“ für dieses Makro.
  • Ergänzen Sie den Makrocode zu folgendem Programm:

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveSheet.PageSetup.RightFooter = "Letztes Speicherdatum " & Format(Date, "Long Date") & " " & Format(Time, "Long Time")

End Sub

 

Mit diesem Makro wird als rechte Fußzeile (Rightfooter) beim Speichern immer die Zeit des letzten Sicherungsdatums vermerkt.