|
Hallo liebe VBA-Gemeinde,
Ich habe ein Problem bzw. stehe ich gerade ziemlich auf dem Schlau......
Mit dem untenstehenden Code schreibe ich Zelleninhalt aus Tabelle3 (Name:"Mengen") in ein Word Dokument. Der Code funktioniert auch prima aber etwas stört mich dennoch.
Wenn ich die UserForm1 per Schaltfläche in der Tabelle1 ausführe und den CommandButton5 betätige, springt Excel in die Tabelle3.
Und das will ich nicht! Excel soll zwar die Daten aus Tabelle3 in Word übertragen, soll aber während dessen in Tabelle1 bleiben.
Kann man das irgendwie verwirklichen bzw. definieren??
Private Sub CommandButton5_Click()
'Aktivierung von Tabelle3
Tabelle3.Activate
'Öffnen von der Wordvorlage "Textausgabe"
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("G:\Lohn\Dokumente\Textausgabe.docx")
appWord.Visible = True
'Bezirk, Monat, Anzahl Tragetage, Stück/Gesamt, Durschnitt/Stk. am Tag für B850491E in Word-Doc. einfügen.
docTest.Activate
docTest.Bookmarks("Bezirk1").Range.Text = Range("B3")
docTest.Bookmarks("MonatBezirk1").Range.Text = Range("E3")
docTest.Bookmarks("AnzahlTage1").Range.Text = Range("B34")
docTest.Bookmarks("StkGesB850491E").Range.Text = Range("D34")
docTest.Bookmarks("DurchsTagB850491E").Range.Text = Range("E34")
Set docTest = Nothing
Set appWord = Nothing
End Sub
Für jedliche Hilfe bedanke ich mich schonmal im Voraus!
Gruß,
Johannes
|