VBA: Bild in Kopfzeile einfügen

[Joe]

Guten Tag Leute,

ich habe zwei Logos auf einem Tabellenblatt.
In einer Maske kann man zwischen den zwei Logos wählen und das ausgewählte Logo sollte in die Kopfzeile eingefügt werden.

Wie kann man das realisieren?

Ich habe die Befürchtung, dass das aus dem Tabellenblatt nicht geht.
Falls ich richtig liege.
Wie kann man den Code realisieren, dass es reicht wenn die Logos im selben Ordner liegen?
Oder kann man auch eine Bedingung stellen, wenn die Logos nicht im selben Ordner liegen wird ein vorgebener Pfad angenommen?


Hier mein bisheriger Versuch:

Code:

Dim j As Worksheet
For Each j In ThisWorkbook.Worksheets
    With j.PageSetup
        .LeftHeader = "Datum:" _
                      & vbCr & "Bearbeiter:" _
                      & vbCr & "Auftragsnummer:" _
                      & vbCr & "Kunde:" _
                      & vbCr & "Qualitätsnummer:" _
                        
        .CenterHeader = "&D" _
                        & vbCr & ThisWorkbook.Worksheets("Bilder").Range("C11").Value _
                        & vbCr & ThisWorkbook.Worksheets("Bilder").Range("C12").Value _
                        & vbCr & ThisWorkbook.Worksheets("Bilder").Range("C13").Value _
                        & vbCr & ThisWorkbook.Worksheets("Bilder").Range("C14").Value
        .RightFooterPicture.Filename = [Logo1]             '***Fehler, findet Bild nicht
        .RightHeader = "&G"
    End With
Next j

Schöne Grüße

Joe

[Joe]

Nur mal so ein Gedanke.

Zwei zusätzliche Tabellenblätter, wobei jeweils in der Kopfzeile ein bestimmtes Logos ist.

Wenn man die zwei Tabellenblätter aus der For Each Schleife rausnehmen kann und
je nach dem das Logo aus dem einem bzw. anderem Tabellenblatt in die Kopfzeilen
der anderen Tabellenblätter einfügen kann, dann bräuchte man kein Pfad mehr.

Ist sowas Möglich?
Wenn ja, wie?

[schauan]

Hallöchen,

so ein File gibt es nicht:
[Logo1]
Wenn Du prüfen willst, ob ein File existiert, wäre eine simple Variante der Dir-Befehl.
Im Prinzip so:

Code:

If Dir(meinedatei) <> "" then
... sie ist da
Else
... sie ist nicht da
End If

Du kannst ir auch mal diesen Thread anschauen
http://www.clever-excel-forum.de/Thread-...zeile+bild
Eventuell hilft der weiter. Wenn nicht, melde Dich noch mal.