Dim AbsBM As Variant
AbsBM = Array(2, "TM_Vorname", 2, "TM_Vorname2", 3, "TM_Nachname", 3, "TM_Nachname2", 4, "TM_StrHnr", 5, "TM_PLZ", 6, "TM_Ort", 7, "TM_Tel", 8, "TM_Mail")
lZeile = 2
With oExcelWorkbook.Sheets(DatAbsender)
Do While .Cells(lZeile, 2) <> ""
If ListBox1.Text = CStr(.Cells(lZeile, 1).Value) Then
For i = 1 To 17 Step 2
If ActiveDocument.Bookmarks.Exists(AbsBM(i)) Then
Set TMRange = ActiveDocument.Bookmarks(AbsBM(i)).Range
TMRange = CStr(.Cells(lZeile, AbsBM(i - 1)).Value)
ActiveDocument.Bookmarks.Add AbsBM(i), TMRange
Set TMRange = Nothing
End If
Next i
Exit Do
End If
lZeile = lZeile + 1
Loop
End With