Excel VBA übertrag in Word mittels Bookmarks

[Koksii]

Ich hab quasi ne Tabelle mit

5 zeilen und 6 Spalten... die ich jeweils in ne Word Tabelle eintragen will mit Bookmarks.

ActiveDocument.Bookmarks("name").Range.Select
appword.Selection.TypeText Text:=Range("b26").Value

ActiveDocument.Bookmarks("adresse").Range.Select
appword.Selection.TypeText Text:=Range("b27").Value

So funktionierts aber dann muss ich das 30x schreiben mit unterschiedlichen Werten..

Geht das also irgendwie alles in eine Anweisung (Schleife) rein, damit ich das nicht 30 untereinander schreiben muss?

Habs mal so probiert aber das klappt auch nicht

For i = 20 To 24
ActiveDocument.Bookmarks("B" & i).Range.Select
appword.Selection = Range("B" & i).Value
Next


For i = 20 To 24
ActiveDocument.Bookmarks("C" & i).Range.Select
appword.Selection = Range("C" & i).Value
Next


For i = 20 To 24
ActiveDocument.Bookmarks("D" & i).Range.Select
appword.Selection = Range("D" & i).Value
Next


For i = 20 To 24
ActiveDocument.Bookmarks("E" & i).Range.Select
appword.Selection = Range("E" & i).Value
Next


For i = 20 To 24
ActiveDocument.Bookmarks("F" & i).Range.Select
appword.Selection = Range("F" & i).Value
Next

 

[Kleiner Kiesel]

Probier es mal hiermit

ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)
Damit kannst du deine Tabelle, die Reihe und die Spalte mittels Integer Werten auswählen.