Thema Datum  Von Nutzer Rating
Antwort
Rot VBA schleife
02.12.2021 17:46:36 Patrick
Solved
03.12.2021 16:44:16 Gast97696
Solved
06.12.2021 16:36:18 Gast93214
Solved
07.12.2021 12:25:32 Gast64590
NotSolved

Ansicht des Beitrags:
Von:
Patrick
Datum:
02.12.2021 17:46:36
Views:
188
Rating: Antwort:
 Nein
Thema:
VBA schleife

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA schleife
02.12.2021 17:46:36 Patrick
Solved
03.12.2021 16:44:16 Gast97696
Solved
06.12.2021 16:36:18 Gast93214
Solved
07.12.2021 12:25:32 Gast64590
NotSolved