kann mir bitte jemand erklären, warum ich mit dem folgenden Code im CenterFooter eine Datumsangabe in Schriftgröße 409(!) erhalte?
Sub Footer()
Dim Tabelle As Worksheet
For Each Tabelle In ThisWorkbook.Worksheets
With Tabelle.PageSetup
.LeftFooter = "&""Arial""&11Irgendwas"
.RightFooter = "&""Arial""&11" & Tabelle.Name
.CenterFooter = "&""Arial""&11" & Format(Date, "dd.mm.yyyy")
End With
Next Tabelle
End Sub
Gibt es eine andere Lösung?
Gruß,
Rob