Hallo zusammen,
brauche dringend Hilfe!
Leider funktioniert der Code nicht, so wie ich es haben möchte.
Wo liegt der Fehler?
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
For m = letzteZeile To 11 Step -1
If Tabelle1.Cells(m, 1).Value = "Vorname" Then
strAnforderung2 = Cells(m, 2) & " " & Cells(m, 3) & vbNewLine
doc.Bookmarks("VorN").Range.Text = strAnforderung2
End If
Next m
For n = letzteZeile To 11 Step -1
If Tabelle1.Cells(n, 1).Value = "Nachname" Then
strAnf = Cells(n, 2) & " " & Cells(n, 3) & vbNewLine
doc.Bookmarks("NachN").Range.Text = strAnf
End If
Next n
Ziel :
Vorname
Sara S
Muster M
..
Nachname
Musterman MU
....
DANKE!
|