Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus Excel nach Word exportieren

Daten aus Excel nach Word exportieren
08.12.2016 09:00:51
Lennart
Hallo Mitglieder,
ich habe eine Aufgabe die etwas zu kniffelig für mich ist.
Ich möchte gerne Daten aus benannten Zellen einer Excel Datei in eine Word Datei übergeben.
Nun zu meinem Problem: Aus Sicherheitsgründen ist es mir nicht möglich in einer der beiden Dateien Makros anzulegen oder ein allgemeines Makro zu erstellen.
Meine Idee ist es eine "Übergabedatei" zu erstellen in der das Makro liegt.
Nun bekomme ich die ganze Konstruktion mit Dateiaufrufen und Aktivierung nicht hin...
Also Beispielzelle1-10 aus Datenquelle.xlsx Blatt1
nach Worddatei.docx an stelle Beispielstelle1-10
das Ganze aus Sicht einer dritten Datei. Die Dateien sind alle im gleichen Ordner.
Ist so etwas möglich? Könnt Ihr mir dabei Helfen?
Vielen Dank schon mal
Lennart

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Excel nach Word exportieren
08.12.2016 09:18:04
Fennek
Hallo,
vor kurzem hat snb diesen Code gepostet. Anstelle "Paragraph(1)" kann auch an ein "Bookmark" kopiert werden:

Sub M_snb()
With Tabelle1.Cells(1).CurrentRegion
.AutoFilter 4, 20
.Copy
With CreateObject("word.document")
.Paragraphs(1).Range.Paste
.Windows(1).Visible = True
End With
.AutoFilter
End With
end sub
mfg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige