Office: (Office 365) VBA - Kopf- und Fußzeilen Anpassen mit Logos

Hallo zusammen,
ich bin auf der Suche nach einer Lösung mehrere Excel Dokumente (Viele Anhänge, die ich immer wieder anpassen muss, die aber nicht in einer Datei gespeichert werden können/ Sollen) gleichzeitig anzupassen. Es sollen jeweils die Kopfzeilen und die Fußzeilen nach einem Schema angepasst werden:

1. Kopfzeile oben links: Logo Nr. 1
2. Kopfzeile Mitte: in dem Kopfzeilenfeld sind mehrere Zeilen geschrieben. Ich möchte nur in der Ersten Zeile einen Eintrag mit dem "Projektnamen" eintragen. In der Zweiten Zeile soll das stehen bleiben, was bisher dort steht (falls möglich) - nämlich die Art der Anlage
3. Kopfzeile oben rechts: Logo Nr. 2
4. Fußzeile unten links: Zwei Zeilen, Zeile 1: "FIRMA | Kzl, Kzl, Kzl", Zeile 2: "Stand:" und dahinter Das aktuelle Datum der neuen Bearbeitung
5. Fußzeile Mitte: "Seite" und darunter die aktuelle Seite / Gesamt-Seitenzahl 6. Fußzeile rechts: Zeile 1: Dateiname, Zeile 2: "Druckdatum:" heutiges Datum

Ich habe mir jetzt so beholfen, dass ich ein Makro im personal.xlsb angelegt habe, welches ich mit einem Symbol in der Symbolleiste aufrufen kann, sodass ich dadurch den workflow etwas vereinfache. Leider muss ich dazu immer noch jede Datei einmal öffnen, aber da habe ich noch keine alternative Lösungsidee.

Nun ist aber mein Problem, dass es bei dem Code, den ich jetzt habe immer eine Fehlermeldung gibt beim Einlesen der Logos und ich verstehe nicht, warum...

Folgenden Code habe ich, jedoch kommt hierbei immer eine Fehlermeldung entweder 1004 oder 384. Er hängt sich immer an dem "&G" auf.

Code:

Option Explicit

Sub FormatHeadFoot()
    ' Dialog zum Auswählen von Logo Nr. 1
    Dim logo1Path As Variant
    logo1Path = Application.GetOpenFilename(FileFilter:="Bilder (*.gif; *.jpg; *.jpeg; *.bmp; *.png), *.gif; *.jpg; *.jpeg; *.bmp; *.png", Title:="Logo Nr. 1 auswählen")
    
    ' Abbrechen, wenn der Benutzer den Dialog abbricht
    If logo1Path = "False" Then
        Exit Sub
    End If
    
    ' Dialog für Projektnamen
    Dim projectName As String
    projectName = InputBox("Geben Sie den Projektnamen für die Kopfzeile Mitte ein:")
    
    ' Dialog zum Auswählen von Logo Nr. 2
    Dim logo2Path As Variant
    logo2Path = Application.GetOpenFilename(FileFilter:="Bilder (*.gif; *.jpg; *.jpeg; *.bmp; *.png), *.gif; *.jpg; *.jpeg; *.bmp; *.png", Title:="Logo Nr. 2 auswählen")
    
    ' Abbrechen, wenn der Benutzer den Dialog abbricht
    If logo2Path = "False" Then
        Exit Sub
    End If
    
    ' Kopfzeile und Fußzeile formatieren
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        ' Alte Inhalte in den Kopf- und Fußzeilen entfernen
        With ws.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
        End With

        ' Kopfzeile
        With ws.PageSetup
            .LeftHeader = "&G" & logo1Path ' Logo Nr. 1
            .CenterHeader = projectName ' Projektnamen in der Mitte
            .RightHeader = "&G" & logo2Path ' Logo Nr. 2
        End With

        ' Fußzeile
        ws.PageSetup.LeftFooter = "FIRMA | Kzl, Kzl, Kzl" & vbCrLf & "Stand: " & Format(Now, "DD.MM.YYYY")
        ws.PageSetup.CenterFooter = "Seite &P von &N" ' &P ist die aktuelle Seite, &N ist die Gesamtanzahl der Seiten
        ws.PageSetup.RightFooter = ThisWorkbook.Name & vbCrLf & "Druckdatum: " & Format(Now, "DD.MM.YYYY")
    Next ws
End Sub

Hat jemand eine Idee, wie ich erstmal den Code zum laufen bekomme, oder alternativ eine Idee, wie ich das Problem anders angehen könnte?

 

Moin,

versuche mal ganz ohne Makro "&G" auch ohne Anführungszeichen in eine benutzerdefinierte Kopfzeile zu schreiben...
In Deinem Code ist keine Variable solchen Namens definiert. Dann schreibe mal vor die Zeile mit dem ersten &G die Anweisung On error resume next und ich vermute stark, dass Du dann an &P oder &N hängenbleibst.

Grüße