ich habe mir ein kleines Tool erstellt mit dem man Daten aus einer Tabellenzeile in eine Wordvorlage mit Textmarken einfügen kann.
In die Tabelle trägt man in eine Zeile einige Informationen ein und dann sollen diese in die Wordvorlage eingefügt werden. Das funktioniert auch, aber ich müsste aus meinem Wege für jede Zeile einen Code schreiben.
Nun stoße ich aber an die Grenze meiner Progamierkenntnisse.
Ich wollte nun eine Variable("Zeile") einfügen, die die Zahl z.B. in
".Bookmarks("Datum").Range.Text = wks.Range("B4").Value"
ersetzt.
So in etwa:
".Bookmarks("Datum").Range.Text = wks.Range("B"Zeile"").Value"
Aber ich habe das gefühl das geht so nicht.
Weiterführend soll der Benutzer dann per Abfragefeld "tragen Sie die lfd.nr. ein" die Variable definieren.
Hier der code:
Sub Test()
Dim appWord As Object
Dim docWord As Object
Dim wks As Worksheet
Dim Zeile As String
Set wks = ThisWorkbook.Worksheets("Request Sheet") 'anpassen
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Add("C:\Users\xxxxxx\Desktop\xxxxxx.docx") 'anpassen
Zeile = 4
appWord.Visible = True
With docWord
.Bookmarks("Datum").Range.Text = wks.Range("B4").Value 'anpassen
.Bookmarks("Kontakt").Range.Text = wks.Range("C4").Value 'anpassen
.Bookmarks("Typ").Range.Text = wks.Range("D4").Value 'anpassen
.Bookmarks("Format").Range.Text = wks.Range("E4").Value 'anpassen
End With
End Sub