Gruppe
Druck
Problem
Wie kann ich das aktuelle Datum im Format DD.MM.JJJJ automtaisch in die Fußzeile eingeben lassen?
StandardModule: Modul1
Sub DatumInFussZeile()
ActiveSheet.PageSetup.LeftFooter = _
Format(Date, "dd.mm.yyyy")
ActiveSheet.PrintPreview
End Sub