Hallo,

könnte mir jemand einen Tip geben mit wie ich einen Kopierten bereich aus exel in word einfüge ..

den code zum kopieren eines bereiches hab ich schon nur der befehl zum einfügen in word müsste ich wissen ( am besten an eine Textmarken stelle )

so das hab ich schonmal

Sub test()
Dim AppWD As Object
Dim doc As Object
Set AppWD = CreateObject("Word.Application")

''Word als Object starten
AppWD.Visible = True
Worksheets("tabelle1").Range("A1;D5").Copy

das müsste doch gehen oder das mit dem befehl der bereich A1-D5 kopiert wird oder ?


Set doc = AppWD.Documents.Open("C:\Users\hjs5fe\Desktop\RECHNUNG BLANK1.docx")

doc.bookmarks("Name").Range.Text = Tabelle1.Cells(2, 1).Value
doc.bookmarks("Vorname").Range.Text = Tabelle1.Cells(2, 2).Value
doc.bookmarks("Anrede").Range.Text = Tabelle1.Cells(2, 6).Value
doc.bookmarks("PLZ").Range.Text = Tabelle1.Cells(2, 4).Value
doc.bookmarks("Ort").Range.Text = Tabelle1.Cells(2, 5).Value