Gruppe
Druck
Bereich
Kopf/Fußzeile
Thema
Mehrzeilige Kopf-/Fußzeile
Problem
Wie kann ich über ein VBA-Makro 3 Linien in die Kopf- und 2 Linien in die Fußzeile einfügen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basmain
Sub LinesInHeFo()
Dim sSep As String, sText As String
sSep = Application.Rept("_", 20)
With ActiveSheet.PageSetup
sText = sSep & vbLf & sSep
.CenterFooter = sText
sText = sText & vbLf & sSep
.CenterHeader = sText
End With
ActiveSheet.PrintPreview
End Sub