Ganz herzlichen Dank für die Unterstützung.

Habe nun den Code unten eingefügt. Leider gibt er mir noch die Fehlermeldung: "Fehler beim Kompilieren, Variable nicht definiert"

Was fehlt noch?  Vielen, vielen Dank in jedem Fall....

Freundliche Grüsse, Joshuah

 lZeile = 2 'Wir starten in Zeile 2, da in der ersten Zeile überschriften stehen
          With oExcelWorkbook.Sheets(sTabellenblatt)
              Do While .Cells(lZeile, 1) <> ""
                  'Wenn der Eintrag der Listbox mit dem Namen in der Adresstabelle
                  'übereinstimmt, dann werden die Textmarken gefüllt!
                  If ListBox2.Text = CStr(.Cells(lZeile, 2).Value) Then
                      'Eintrag gefunden, Textmarken füllen
                      ActiveDocument.Bookmarks("Linksunterschrift").Range.Text = _
                          CStr(.Cells(lZeile, 9).Value)
                      ActiveDocument.Bookmarks("Linksfunktion").Range.Text = _
                          CStr(.Cells(lZeile, 10).Value)
                      pfad = CStr(.Cells(lZeile, 5).Value)
                        ActiveDocument.Bookmarks("Bild").Range.InlineShapes.AddPicture FileName:=pfad, LinkToFile:=False, SaveWithDocument:=True
                            For i = 1 To ActiveDocument.InlineShapes
                            If ActiveDocument.InlineShapes(i).Type = 3 Then
                            ActiveDocument.InlineShapes(2).Width = 12
                            ActiveDocument.InlineShapes(2).Height = 6
                            Exit For
                     End If
                     Next i
                                     
                  Exit Do
                  End If
                  lZeile = lZeile + 1
              Loop
          End With