Dim AbsBM As Variant
AbsBM = Array("TM_Vorname", 2, "TM_Vorname2", 2)
lZeile = 2
With oExcelWorkbook.Sheets(DatAbsender)
Do While .Cells(lZeile, 2) <> ""
If ListBox1.Text = CStr(.Cells(lZeile, 1).Value) Then
For i = 0 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