Excel VBA Excel Kalkulationstabelle in Word
29.10.2018 13:39:23
Patric
Ich bin neu hier im Forum und hoffe mal, dass ich alles richtig formuliere :-)
Über die Google- und Forumsuche habe ich keine passenden Lösungen gefunden und hoffe nun, dass mir hier im Forum jemand behilflich sein kann.
Ich benutze Excel 2016 und Word 2016
Folgendes habe ich nun erstellt, was auch funktioniert:
-Excel Datenbank
Hier wird ein Eintrag erfasst, in der Datenbank eingefügt und
anschliessend sortiert
-Wordvorlage
Diese wird geöffnet, in welchem eine Word Kalkulationstabelle eingefügt ist
und gespeichert
Nun habe ich folgendes Problem:
-Wie kann ich von Excel per VBA auf die Word Kalkulationstabelle
(in der Wordvorlage) zugreifen um dort ein Wert in die Zelle A1 einzufügen?
Warum die Excel Kalkulationstabelle in Word:
Ich benötige in Word die Kalkulationstabelle, damit per Sverweis, weitere
Werte gesucht und eingesetzt werden können, da die Excel Datenbank sortiert
wird und ich somit kein fester Bezug habe.
Aus der Excel Datenbank soll der Wert von Tabelle1.Range("L3") in die
Word Kalkulationstabelle in Zelle A1 übernommen werden.
Mein Excel VBA Code sieht momentan so aus:
Sub Word_open_save()
Dim wdDocument As Object
Dim App As Object
Set App = CreateObject("Word.Application")
App.Visible = True
Set wdDocument = App.Documents.Add("C:\DOKUMENTE\......\$Test_Word_Vorlage.dotx")
wdDocument.SaveAs (Tabelle1.Range("Q2") & Tabelle1.Range("L3"))
wdDocument.Fields.Update
wdDocument.Save
Set wdDocument = Nothing
Set App = Nothing
End Sub