Hallo zusammen,
kann mir vielleicht einer sagen was hier verkehrt ist?
Ich möchte eine For-Schleife die ab Zeile (A)11 anfängt bis in der Spalte A der Wert "Nachname" kommt durchläuft.
Die dazwischen liegende Werte also Spalte B und C möchte ich nebeneinander einfügen.
Das gleiche möchte ich dann auch für Nachname
Vorname X X1
n.. Xn
Nachname X x2
n.. xn
Dim loZeile As Long
Dim loLetzte As Long
loLetzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For loZeile = loLetzte To 11 Step -1
If Cells(loZeile, 1).Value = "Nachname" Then
strA = Cells(loZeile, 2) & " " & Cells(loZeile, 3)
doc.Bookmarks("Vornamen").Range.Text = strA
Next loZeile
Vielen Dank
|