Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Übernahme von Objekten in Prozeduren

Übernahme von Objekten in Prozeduren
07.08.2017 16:46:33
Objekten
Hallo liebe Excel-Gemeinde,
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!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übernahme von Objekten in Prozeduren
07.08.2017 17:35:30
Objekten
Hallo,
deklariere die Variablen in einem normalen Modul in den Kopf
unterhalb der Option ... Anweisungen als Pablic.
Beispiel
Option Explicit
'Option ... ?
Pablic appWord As Object
Pablic docTest As Object
Wenn diese "verschiedene Prozeduren" im selben Modul liegen reicht auch mit Dim
Option Explicit
'Option ... ?
Dim appWord As Object
Dim docTest As Object
Achte aber darauf das diese Variablen sauper am ende zurückgesetzt werden
auch wenn es zu einem Fehler kommt!
Gruß Tino
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige