Ich habe ein Problem mit der Formatierung von Fuß- und Kopfzeilen
Über ein Makro
Sub kopfzeile()
Sheets("Muster").Select
With ActiveSheet.PageSetup
.LeftHeader = Sheets("basis").[a40] & Chr(10) & Sheets("basis").[a37]
.CenterHeader = ""
.RightHeader = Sheets("basis").[a38] & Chr(10) & "&D"
.LeftFooter = Sheets("basis").[a42]
.CenterFooter = ""
.RightFooter = ""
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
erstelle ich in einem Tabellenblatt Kopf-/und Fußzeile.
Klappt auch, jedoch möchte ich die Schriftgröße von 10 auf 12 einstellen. Das kriege ich leider nicht so hin wie ich es mir wünsche. Kann mir hier jemand helfen.
Besten dank im voraus
Gruß Det