Exceltabelle an gewisse Stelle in Word kopieren
23.03.2017 08:55:54
Michaela
ich möchte per Makro eine Bereich von Excel automatisch in eine Word Datei ans Ende kopieren.
Excel Datei und Word Datei sind im gleichen Ordner.
Mit meinem momentanen Code wird in der Word Datei alles gelöscht und die Excel Tabelle wird ganz oben hin kopiert.
Sub ExportData()
Dim wd As Object
Dim j As Long
Range(Range("A2"), Cells(Rows.Count, 13).End(xlUp).Offset(0, -1)).Copy
Set wd = CreateObject("word.application")
wd.Documents.Open Filename:=ThisWorkbook.Path & "\" & "DATEINAME.docx"
wd.Visible = True
wd.ActiveDocument.Range.Paste
End Sub
Könnt ihr mir helfen, wie ich die Tabelle am Ende einfüge.
Evtl. auch über Bookmarks & Co.
Liebe Grüße
Michi
Anzeige