Fußzeile - Format

Forumthread: Fußzeile - Format
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Fußzeile - Format

Fußzeile - Format

Rob

Hallo,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Fußzeile - Format

WernerB.
AW: Fußzeile - Format

Rob

AW: Fußzeile - Format

WernerB.

Hallo Rob,
wenn direkt auf die Schriftgröße (hier: 11) eine Ziffer oder Zahl (z.B. ein Datum) folgt, wird diese zur Schriftgröße hinzuinterpretiert. Abhilfe schafft hier ggf. ein eingeschobenes Leerzeichen.


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

Viel Erfolg wünscht
WernerB.

AW: Fußzeile - Format

02.05.2004 22:24:59

Rob

Das nenn ich schnelle Hilfe. Vielen Dank WernerB.
Rob