Hallo Experten,
ich möchte gern die Schriftgröse in der linken Fußzeile auf 8 festsetzen. Irgendwie funktioniert es nicht richtig.
Folgenden Code nutze ich für die Fußzeile:
If Worksheets("Dateneingabe").Range("b444") = "j" Then
With Sheets("Optimierung VL")
.Visible = True
.PageSetup.LeftFooter = ThisWorkbook.Worksheets("Dateneingabe").Range("b395")
.PageSetup.CenterFooter = _
"&8Das Programm wurde mit größter Sorgfalt erstellt. " & Chr(10) & "Dennoch können sich Fehler ergeben haben, für die wir keine Haftung übernehmen." & Chr(10) & "Bitte beachten Sie die Ausführungen des Blattes >> Annahmen - Hinweise .PageSetup.RightFooter = "&8&D - &T"
.PrintOut , preview:=True
.Visible = False
End With
End If
Wer kann mir hier helfen?
viele grüsse
gerd