Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten von Excel nach Word mit VBA

Forumthread: Daten von Excel nach Word mit VBA

Daten von Excel nach Word mit VBA
09.05.2005 10:40:19
Excel
Guten Tag erstmal,
ich bin auf der suche nach einer Möglichkeit Daten von Excel nach Word zu bringen.
Ich habe in Excel mehrere nichtzusammenhängende Zellen, deren Inhalt ich in einem Wordfile an bestimmte Stellen plazieren möchte.
die Zellen in Excel habe ich schon mit hilfe von VBA gefunden und selectiert. Es wird immer nur eine Zelle activiert. Der Inhalt dieser soll dann an Word übergeben werden und dort dann genau an eine vordefinierte Stelle plaziert werden.
Wie kann ich die Stelle in word definieren?
Wie kann ich denn Wert dann von Excel aus dort plazieren?
Danke für Eure Hilfe.
Gruß
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von Excel nach Word mit VBA
09.05.2005 23:36:54
Excel
Hallo Michael,
in Dein Word Dokument musst Du Textmarken setzen. Positioniere
den Cursor an die Stelle im Text wo der Wert nachher erscheinen soll.
Im Menü wählst Du dann Einfügen/Textmarke. Hier kannst du einen
Namen vergeben. z.B. ExcelWert1.
Speicher das Word Dokument als Dokumentvorlage (Endung .dot) Z.B.: C:\Test.dot
Der folgenden Code fügt den Text aus Zelle A1 an der Textmarke ExcelWert1 ein.




Sub NachWord()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\Test.dot")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("ExcelWert1").Range.Text = Range("A1")
Set docTest = Nothing
Set appWord = Nothing
End Sub

Gruß
Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige