Übernahme von Objekten in Prozeduren
07.08.2017 16:46:33
Objekten
ich habe folgendes Problem:
Ich möchte Zellen von Excel nach Word übertragen mittels Textmarken. Das funktioniert auch sehr gut...ABER da es sich um sehr viele Zellen handelt ist die Prozedur für ein Makro zu groß.
Ich habe folgenden Code:
Private Sub CommandButton5_Click()
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")
und noch viele mehr...
Set docTest = Nothing
Set appWord = Nothing
End Sub
Wenn mir jemand helfen könnte wäre das echt super!!
Anzeige