22.10.2018, 12:46
Hi Leute,
ich benötige eure Hilfe bei folgendem Codeschnipsel
Ziel ist es, auf Knopfdruck ein Word-Dokument zu öffnen und die formatierte Tabelle "Tab_Arbeiten" an die Textmarke "Spr_Leistung" zu kopieren. Die Tabelle soll nicht nur kopiert, sondern auch verknüpft werden und die Formatierung behalten.
Folgende Probleme tauchen noch auf:
- Die Copy-Destination will nicht so wie sie soll - was mache ich falsch?
- Mit welchem Code verknüpfe ich die Tabelle (Excel --> Word)?
Gruß und Danke im voraus
ich benötige eure Hilfe bei folgendem Codeschnipsel
Code:
Sub Word_Export()
Dim objWord As Object
Dim strPfad As String
Dim objList As ListObject
strPfad = ThisWorkbook.Path & "\Rechnungsvorlage.docx"
Set objWord = CreateObject("Word.application")
Set objList = ThisWorkbook.Sheets("Rechnung erstellen").ListObjects("Tab_Arbeiten")
With objWord
.Application.Visible = True
.Application.documents.Open (strPfad)
End With
With objList.Range
.Copy
.Copy Destination:=objWord.activedocument.bookmarks("Spr_Leistung").Range.Text
End With
Set objWord = Nothing
End SubZiel ist es, auf Knopfdruck ein Word-Dokument zu öffnen und die formatierte Tabelle "Tab_Arbeiten" an die Textmarke "Spr_Leistung" zu kopieren. Die Tabelle soll nicht nur kopiert, sondern auch verknüpft werden und die Formatierung behalten.
Folgende Probleme tauchen noch auf:
- Die Copy-Destination will nicht so wie sie soll - was mache ich falsch?
- Mit welchem Code verknüpfe ich die Tabelle (Excel --> Word)?
Gruß und Danke im voraus