Hallo,

Du solltest an Deinem Posting-Stil arbeiten. Es wird keine klare Beschreibung gegeben. Es fehlt die Anordnung der Ausgangsdaten, es fehlt das was das Makro anders macht als Du es erwartest.

Ich habe mal meine Kristallkugel befragt und war kurz bei meiner Hellseherin und beide haben mir das gesagt:

With Tabelle1
    letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
    For m = letzteZeile To 11 Step -1
        If .Cells(m, 1).Value = "Vorname" Then
            strAnforderung2 = .Cells(m, 2) & " " & .Cells(m, 3) & vbNewLine
            doc.Bookmarks("VorN").Range.Text = strAnforderung2
        ElseIf .Cells(n, 1).Value = "Nachname" Then
            strAnforderung2 = .Cells(m, 2) & " " & .Cells(m, 3) & vbNewLine
            doc.Bookmarks("NachN").Range.Text = strAnf
        End If
    Next m
End With

Gruß

Michael