Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel-daten in Word-Datei einlesen

Excel-daten in Word-Datei einlesen
24.11.2002 14:18:37
Heinz A. Wankmüller
Hallo Excel-Freunde,
ich habe in der Recherche leider nichts zu meinem Problem gefunden. Es gibt zwar einige Beispiel Bereiche aus Excel in eine Word-Datei zu kopieren und dann z.B. auszudrucken.
Ich möchte aber mehrere verschiedene Daten aus verschiedenen Excel-Zellen in ein Word-Dokument eintragen. Z.B. den Namen eines Kunden an die richtige Stelle im Word-Dokument. Die Straße in die nächste Zeile, dann den Ort. Einen bestimmten Textteil wieder an eine andere Stelle, Zahlen (das Ergebnis einer Berechnung) wieder an eine andere Stelle usw. Wie füge ich solche Daten an den richtigen Stellen ein, und zwar nicht in Form einer Tabelle, sondern einfach als Text?

Danke
Heinz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Excel-daten in Word-Datei einlesen
24.11.2002 14:49:56
Jens Huthmann
Hallo Heinz,

kleines Beispiel hierfür:

Sub Export()

Dim Kunde As String
Dim Artikel As String
Dim Menge As Integer
Dim MwStSatz As Double
Dim EP As Currency
Dim Netto As Currency
Dim MwSt As Currency
Dim Brutto As Currency
Dim Pfad As String
Dim Excel As Workbook

'Pfad der Exceldatei bestimmen
Pfad = ActiveWorkbook.Path
Set Excel = ActiveWorkbook

'Einlesen der Exceldaten in Variablen
Sheets(1).Select
Kunde = [c6]
Artikel = [c7]
Menge = [c8]
EP = [c9]
MwStSatz = [c10]
Netto = [c12]
MwSt = [c13]
Brutto = [c14]

'Word aktivieren, bzw. falls noch nicht geöffnet (-->Fehler), dann Word öffnen
On Error Resume Next
Set wordobj = GetObject(, "word.application.8")
If Err.Number = 429 Then
Set wordobj = CreateObject("word.application.8")
GoTo weiter
End If
On Error GoTo 0

weiter:
'Word sichtbar machen und zum aktiven Fenster erheben
wordobj.Visible = True
wordobj.Activate

'auf Word-Dokumentvorlage zugreifen und neues Dokument erstellen
wordobj.Documents.Add Template:=Pfad & "\Datenimport aus Excel.dot", newtemplate:=False
'Alternativ mit dem kompletten Pfadnamen, wenn die Vorlage in einem anderen Ordner
'als die Exceldatei liegt:
'wordobj.Documents.Add Template:="e:\aufträge\angebot.dot", newtemplate:=False
wordobj.WindowState = wdWindowStateMaximize


'Exceldaten aus den Variablen an vordefinierte Textmarken des Worddokuments schreiben
wordobj.activedocument.bookmarks("Kunde").Range = Kunde
wordobj.activedocument.bookmarks("Artikel").Range = Artikel
wordobj.activedocument.bookmarks("Menge").Range = Menge
wordobj.activedocument.bookmarks("EP").Range = FormatNumber(EP, 2) & " €"
wordobj.activedocument.bookmarks("MwStSatz").Range = FormatNumber(MwStSatz * 100, False) & "%"
wordobj.activedocument.bookmarks("Netto").Range = FormatNumber(Netto, 2) & " €"
wordobj.activedocument.bookmarks("MwSt").Range = FormatNumber(MwSt, 2) & " €"
wordobj.activedocument.bookmarks("Brutto").Range = FormatNumber(Brutto, 2) & " €"


End Sub


Maile mich direkt an, wenn ich dir die Exceldatei und das Wordtemplate zumailen soll.

Gruß
Jens Huthmann

Anzeige
Re: Excel-daten in Word-Datei einlesen
24.11.2002 15:05:25
Panicman
Hallo Heinz,

schau dir mal in Ruhe die Wordhilfe zu "Serienbrief" an. Dort kannst du deine Exceltabelle als Datenbank hinterlegen und die die Zellen als Text anzeigen lassen.
Du solltes aber deine Exceltabelle so aufbauen, das in der 1 Zeile Überschriften stehen (Name;Vorname;usw.) und dann die Daten ab Zeile 2, wobei alle Daten zu einem Namen in der gleichen Zeile stehen müssen.

Viel Spaß
Holger

Re: Excel-daten in Word-Datei einlesen
24.11.2002 15:13:48
Heinz A. Wankmüller
Hallo Holger,
danke für deine Antwort. Den Serienbrief kenne ich, ich möchte aber aus Excel heraus Word öffnen, in eine Vorlage verschiedene Daten eintragen, ausdrucken und dann wieder in Excel weiterarbeiten.

Gruß
Heinz

Anzeige
DANKE
24.11.2002 15:31:17
Heinz A. Wankmüller
Halo Jens,
funktioniert prima. Werde es gleich in mein Beispiel umsetzen.

Gruß
Heinz

302 Forumthreads zu ähnlichen Themen

Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Anzeige
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
ComboBox1 Datein Einlesen
Heinz

Hallo Leute
Ich möchte gerne von einer ComboBox1 "UF" die Daten vom Blatt "Umbauplan" A4:A11,A15:A21 die Daten einlesen.
Es handelt sich hierbei um ein Datum, in Form von TTTTT TT MM JJ
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
10.01.2009 15:18:15
Thread-ID: 1038455
3 Beiträge
Anzeige
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Text-Datei in Excel einlesen
Jule07

Hallo,
ich brauche eure Hilfe?
Ich würde gern Werte aus einer Text-Datei, welche 2-reihig jeweils 50.000-60.000 Zeilen enthält, in eine bereits geöffnete Arbeitsmappe einfügen. Die 2 Reihen sind durch einen Tab getrennt.
Zudem kommt, dass ich gern die Text-Datei über ein Dialogfe...
21.03.2009 10:54:00
Thread-ID: 1062443
8 Beiträge
Einlesen von Dateien in Schleife
Dateien

Moin,
ich habe eine Frage, warum kommt bei folgendem Code ein Fehler? Ich habe den Einleseteil mit dem Makrorecorder aufgenommen, den Rest selbst gemacht.
Interessanter Weise kommt der Fehler das die Datei tab1.xls nicht existiert. Die Datei existiert ja auch nicht, es soll die TextDat...
23.07.2009 15:16:38
Thread-ID: 1090723
4 Beiträge
Textdatei einlesen
Mandy

Hallo,
ich habe eine Textdatei (kommt aus einem anderen System) , die will ich per Makro in eine Excel einlesen.
Die Textdatei soll als :
GETRENNT (zeichen wie z.B. Kommas oder Tab....)
AUFEINANDERFOLGENDE TRENNZEICHEN ALS EIN ZEICHEN BEHANDELN
LEERZEICHEN
eingelesen we...
03.08.2009 16:08:29
Thread-ID: 1093269
3 Beiträge
*.cvs Datei einlesen
Frank

Hallo alle zusammen,
ich habe heute ein Anliegen, dass ich gerade nicht selbst lösen kann. Ich zeichne ein Makro auf: Excel -> Daten -> aus Text. Dann öffnet sich ein Dialog und ich wähle eine beliebige *.csv Datei aus. Danach öffnet sich der Konvertierungs-Assistent und ich nehme gew...
29.09.2009 20:26:50
Thread-ID: 1106279
9 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
4
2
20
5
7
3
2
8
2
3
6
6
1
1
5
1
7
2
5
4
1
3
7