Office: (Office 2016) Tabelle von Excel ins Word übertragen

Hallo zusammen,

Habe eine Excel Datei erstellt von der ich die Daten mittels VBA ins Word übertrage per Textmarken.

Nun möchte ich noch eine Tabelle ( A15:H30 ) per Textmarke übertragen. Dies funktioniert leider nicht, bzw. ich weiß nicht welchen Code ich noch hinzufügen muss.

Das ist mein vorhandener Code:

Sub RechnungErstellen()

Dim appWord As Object
Dim docRechnungen As Object


Set appWord = CreateObject("Word.Application")
Set docRechnungen = appWord.documents.Add("C:Usersalexander.kremplOneDrive - Swarco AGDesktopPrivate_GemeindenRechnung.docx")


appWord.Visible = True

docRechnungen.Activate
docRechnungen.Bookmarks("PLZ").Range.Text = Range("B5")
docRechnungen.Bookmarks("Adresse").Range.Text = Range("B4")
docRechnungen.Bookmarks("Auftraggeber").Range.Text = Range("B3")
docRechnungen.Bookmarks("Rechnungsnummer").Range.Text = Range("B7")
docRechnungen.Bookmarks("Angebotsnummer").Range.Text = Range("B8")
docRechnungen.Bookmarks("Datum").Range.Text = Range("B10")
docRechnungen.Bookmarks("Bauvorhaben").Range.Text = Range("B6")
docRechnungen.Bookmarks("Tagesberichtsnummer").Range.Text = Range("B11")
docRechnungen.Bookmarks("Markierungsdatum").Range.Text = Range("B9")
docRechnungen.Bookmarks("Datum_2").Range.Text = Range("B9")



Set docRechnungen = Nothing
Set appWord = Nothing

End Sub

Bin über jeden Tipp / Hilfe dankbar

Gruß

Alex

:)

 

Hi Alex,

Tabelle übertragen als Bild oder als Excelobject zur späteren Bearbeitung?

Knappes Beispiel als Vorlage zum anpassen:

Code:

Hinweis:

[*]Setze den Verweis auf M$-Word damit Du die IntelliSense nutzen kannst

 

Hallo Mase,

Danke für die schnelle Antwort

Möchte es gerne als Bild einsetzen. Kann ich es in meinen Code einbauen?

Gruß

Alex

 

Ob Du es kannst wird sich zeigen *Smilie
Ich sage mal, JA!