Wenn dir ein schöner Mann begegnet, dessen Augen glänzen, dessen Lippen feucht sind, dessen heißer Körper bebt – lass die Finger von ihm – er hat Grippe!

Okay, ich habe den Kunden falsch verstanden. Nur das Logo soll per VBA in die Kopfzeile eingefügt werden.

Der Befehl – füge Bild in die Kopfzeile ist schnell gefunden. Jedoch das PrintCommunication bringt mich um!

Nach einigen Versuchen klappt es.

Beispielsweise so:

        Application.PrintCommunication = False
        With Datei.Worksheets(j).PageSetup
            .RightHeader = ""
        End With
        Application.PrintCommunication = True
    
    
        
        With Datei.Worksheets(j).PageSetup
            .RightHeader = "&4" & Chr(10) & "&10&G"
            .RightHeaderPicture.Filename = Bildpfad
            .RightHeader = "&4" & Chr(10) & "&10&G"
        End With
        Application.PrintCommunication = True