Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrzeilige Kopf-/Fußzeile

Gruppe

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