Set Header & Footer (Kopf-, Fußzeile)

[thowe]

Moin!

Mal kurz & knapp ein kleines Helferlein als VBAstelei...!

In das Klassenmodul "Diese Arbeitsmappe"

Code: Alles auswählen

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    'Set the Header per Sheet
    Call PRINTHELPERS_SetHeader
End Sub

in ein Standardmodul:

Code: Alles auswählen

Sub PRINTHELPERS_SetHeader()

    Dim wksSheet As Worksheet
    
    For Each wksSheet In ThisWorkbook.Worksheets
    	'wshStart is the CodeName of Worksheet "Tabelle1"
    	
        wksSheet.PageSetup.LeftHeader = wshStart.Range("A1").Value & vbTab & Date
        wksSheet.PageSetup.CenterHeader = wshStart.Range("A2").Value & vbTab & Environ("USERDNSDOMAIN")
        wksSheet.PageSetup.CenterHeader = wshStart.Range("A3").Value & vbTab & "blubb & foo"
    Next wksSheet
    
End Sub

Wie das Ganze nun für die Fußzeile funktioniert denke ich mir, findet der VBAstler selbst heraus.

Und bevor die Rückfrage auftaucht, kann ich auch ein Image (Logo) per VBA einbinden, hier für die mittlere Kopfzeile das Snippet.

Code: Alles auswählen

wksSheet.PageSetup.CenterHeaderPicture = "C\Path\To\Your\image.jpg:"

-> doch nicht so schwer, oder?

BITTE BERÜCKSICHTIGEN!
Die in diesem Beispiel gezeigte Implementierung der Kopfzeile erfolgt in jedem Arbeitsblatt (For Each wksSheet ...) der Arbeitsmappe.

lg & viel Spaß damit!