Hallo zusammen,

leider bin ich mit meinem Latein am Ende und noch sehr grün hinter den Ohren, was VBA angeht.

Ich versuche derzeit einen Zeugnisgenerator zu erstellen, damit ich nicht mehr jedes einzelnes Zeugnis selber schreiben muss. Nun klappt das ganze so gut, dass meine Kollegen den Code auch gerne verwenden würden.

Das Problem an der Sache ist, dass wir verschiedene Unternehmen betreuen, welche leicht anderes Briefpapier verwenden in Form von Logo und Impressum.

Das Impressum ist in so weit kein Problem, sondern eher das Logo, welches rechts oben in die Kopfzeile soll.

Ich möchte quasi die Firma/Pfad des Logos im Excel-Dokument in Zelle "Bild" per Drop-Down auswählen und anschließend das dazugehörige Logo in das Word-Dokument tragen.

Ansonsten würde ich über die

So sieht der derzeitige Code aus:

Sub ZeugnisErstellen()
    Dim appWord As Object
    Dim Vertrag As Object
    
    Set appWord = CreateObject("Word.Application")
    Set Vertrag = appWord.documents.Add("F:\Personal\Schütt\Zeugniserstellung\Test.docx")
    
    appWord.Visible = True
    
   Vertrag.Activate
    Vertrag.Bookmarks("Einleitung").Range.Text = Range("Einleitung")
    Vertrag.Bookmarks("Unternehmen").Range.Text = Range("Unternehmen")
    Vertrag.Bookmarks("Tätigkeitseinleitung").Range.Text = Range("Tätigkeitseinleitung")
    Vertrag.Bookmarks("Tatigkeit1").Range.Text = Range("Tatigkeit1")
    Vertrag.Bookmarks("Tatigkeit2").Range.Text = Range("Tatigkeit2")
    Vertrag.Bookmarks("Tatigkeit3").Range.Text = Range("Tatigkeit3")
    Vertrag.Bookmarks("Tatigkeit4").Range.Text = Range("Tatigkeit4")
    Vertrag.Bookmarks("Tatigkeit5").Range.Text = Range("Tatigkeit5")
    Vertrag.Bookmarks("Fachwissen").Range.Text = Range("Fachwissen")
    Vertrag.Bookmarks("Weiterbildung").Range.Text = Range("Weiterbildung")
    Vertrag.Bookmarks("Auffassungsgabe").Range.Text = Range("Auffassungsgabe")
    Vertrag.Bookmarks("Leistungsbereitschaft").Range.Text = Range("Leistungsbereitschaft")
    Vertrag.Bookmarks("Belastbarkeit").Range.Text = Range("Belastbarkeit")
    Vertrag.Bookmarks("Arbeitsweise").Range.Text = Range("Arbeitsweise")
    Vertrag.Bookmarks("Zuverlässigkeit").Range.Text = Range("Zuverlässigkeit")
    Vertrag.Bookmarks("Arbeitsergebnis").Range.Text = Range("Arbeitsergebnis")
    Vertrag.Bookmarks("Verhalten").Range.Text = Range("Verhalten")
    Vertrag.Bookmarks("Zusammenfassung").Range.Text = Range("Zusammenfassung")
    Vertrag.Bookmarks("Schlussformulierung").Range.Text = Range("Schlussformulierung")
    Vertrag.Bookmarks("Ort").Range.Text = Range("Ort")
    Vertrag.Bookmarks("Unterzeichner").Range.Text = Range("Unterzeichner")
    Vertrag.Bookmarks("Vertragsende").Range.Text = Range("Vertragsende")
    Vertrag.Bookmarks("Betrieb").Range.Text = Range("Betrieb")

          
    Set Vertrag = Nothing
    Set appWord = Nothing
    
    
End Sub

Ich hoffe ihr könnt mir helfen.

Vielen Dank und liebe Grüße