über den folgenden VB Code möchte ich meine Fusszeilen füllen. Mein Problem, das Datum soll in folgenden Formaten dargestellt werden. 5. Mai 2006 bzw. 20. Mai 2006. Also bei einzahligen Tagen ohne führende 0.
Wie muss ich den Code abändern, damit ich mein entsprechendes Datumsformat hinbekomme.
Vielen Dank für eine Antwort
Markus
Dim heute, gestern As Date
heute = Date
gestern = heute - 1
With ActiveSheet.PageSetup
.LeftFooter = "Erstellt von: Markus " & Chr(10) & "&F"
.CenterFooter = "Seite &P von &N"
.RightFooter = "Stand: " & gestern
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub