Gruppe
Allgemein
Bereich
Kopf/Fußzeile
Thema
Datum in Fußzeile einfügen
Problem
Wie kann ich das gestrige Datum in die Fußzeile einfügen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub FooterYesterday()
With ActiveSheet
.PageSetup.LeftFooter = Format(Date - 1, "dd.mm.yy")
.PrintPreview
End With
End Sub