Hallo,

ich habe ein Code, welches mir Werte von einer Excel in Word reinschreibt.

Nun wurde ich es gerne erweitern, so dass der Range A1,A2,A3 usw und das für alle Zellen.

In python wäre es dann sowas wie for i in range(1,24):

docTest.Bookmarks("Name").Range.Text = Range("A+i")

oder so ähnlich.

Wisst ihr wie ich es in VBA Code übersetzen kann?

Sub Makro1()
Dim appWord     As Object
Dim docTest     As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///C:\.....\test.docx")
appWord.Visible = True
docTest.Activate

docTest.Bookmarks("Name").Range.Text = Range("A24")
docTest.Bookmarks("Name2").Range.Text = Range("B24")
docTest.Bookmarks("Nr").Range.Text = Range("C24")
docTest.Bookmarks("Strecke").Range.Text = Range("D24")
docTest.Bookmarks("AUF").Range.Text = Range("E24")
docTest.Bookmarks("LKW").Range.Text = Range("F24")
docTest.Bookmarks("PKW").Range.Text = Range("G24")
docTest.Bookmarks("PKWBehinderten").Range.Text = Range("H24")
docTest.Bookmarks("PKWKurz").Range.Text = Range("I24")
docTest.Bookmarks("Bus").Range.Text = Range("J24")
docTest.Bookmarks("Reisemobil").Range.Text = Range("K24")

Set docTest = Nothing
Set appWord = Nothing
    
End Sub