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
Wie kann ich das Makro in verschiedene Prozeduren unterteilen aber gleichzeitig mein Objekt nicht verlieren?Wenn mir jemand helfen könnte wäre das echt super!!