Excel Zellen in Word
28.03.2020 12:50:26
Roger
Ich muss in ein Word diverse Zellen aus Excel einfügen. Mit dem nachstehenden Code geht es wenn ich nur eine Zeile habe. Ich muss aber auswählen können welche Zeile ich nehmen will. Weiter sollte es mir im Word über jeden eingefügten Eintrag auch den entsprechenden Titel dazu schreiben.
Also zb.
Datum Nummer
01.01.200 123
Sub Makro1()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///C:\Users\rberc\Documents\testrechnung1.docx")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("Datum").Range.Text = Range("A2")
docTest.Bookmarks("Nummer").Range.Text = Range("B2")
docTest.Bookmarks("Name").Range.Text = Range("C2")
docTest.Bookmarks("Vorname").Range.Text = Range("D2")
docTest.Bookmarks("Ort").Range.Text = Range("J2")
docTest.Bookmarks("Wert").Range.Text = Range("G2")
Set docTest = Nothing
Set appWord = Nothing
End Sub
Besten Dank für eure Hilfe
Roger
https://www.herber.de/bbs/user/136188.zip
Anzeige