Mit Hilfe des Makro-Rcorders habe ich mir folgenden Code zusammengebastelt:
Sub Headlines()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Sheets
With Blatt.PageSetup
.LeftHeader = "&""Courier New,Standard""&8Objekt :" & " " & Worksheets("T_040").Range(" _
B11") & Chr(10) & "Bauherr :" & " " & Worksheets("T_040").Range("B22") & Chr(10) & "Architekt:" & " " & Worksheets("T_040").Range("B27")
.CenterHeaderPicture.Filename = "C:\Kundendevis\Zubehör\CW_Logo.jpg"
.RightHeader = "&""Courier New,Standard""&8Seite &P / &N "
End With
Next
MsgBox "Die Kopfzeilenangaben sind eingefügt!"
End Sub
Mit den Kopfzeilen links und rechts klappt es auch wie gewünscht, aber in der mittleren Kopfzeile wird das Logo nicht eingefügt. Das Einfügen mit dem Makro-Rekorder funktioniert, beim Aufruf des vorstehenden Codes leider nicht. Kann mir jemand weiterhelfen?
Danke und Gruss, Bruno