Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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.
Anzeige
AW: Fußzeile - Format
02.05.2004 20:24:59
Rob
Das nenn ich schnelle Hilfe. Vielen Dank WernerB.
Rob

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige