Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel ==> Word (Serienbrief mit variablen Datein.)

Forumthread: Excel ==> Word (Serienbrief mit variablen Datein.)

Excel ==> Word (Serienbrief mit variablen Datein.)
11.11.2005 16:01:33
Matthias_FFM
Guten Tag Excel-Forum,
in den Spalten A bis D der Excel-Datei stehen beispielhaft die folgenden Überschriften:
Dateiname; Nachname; Vorname, Anrede
und in den Zeilen die jeweiligen Daten (Anzahl variabel)
Die Excel-Datei dient als Basis für eine Serienbriefdatei von Word, wobei die Seriendruckfelder in der Word-Datei schon anlegt sind.
Der Brief je "Kontakt" umfasst 2 Seiten und soll jeweils in eine separate Datei gespeichert werden (Name unter A1; A2; A3).
Wie kann dies gehen ? Die Suche in der Recherche hat mir hier nicht weitergeholfen.....
Viele Dank
Matthias_FFM
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel ==> Word (Serienbrief mit variablen Date
11.11.2005 18:17:35
ChrisL
Hi Matthias
Vielleicht gehst du das Problem besser von der Word Seite her an (falsches Forum).
Ein Ansatz wäre auf den Serienbrief zu verzichten und mit Bookmarks zu arbeiten d.h. Vorlage (dot) öffnen und Text bei den Bookmarks einsetzen, dann speichern und weiter.
Ansatzmässig und ungetestet:

Sub t()
'Variablen deklarieren
Dim Name As String, Adi As String, Ort As String, Dateiname As String
Dim iZeile As Long
Dim appWD As Object
'Word unsichtbar starten
Set appWD = CreateObject("Word.Application")
appWD.Visible = False
For iZeile = 1 To Range("A65536").End(xlUp).Row
'Werte in Variablen übergeben
Dateiname = Cells(iZeile, 1)
Name = Cells(iZeile, 2)
Adi = Cells(iZeile, 3)
Ort = Cells(iZeile, 4)
'Vorlage als Dokument in Word öffnen
appWD.Documents.Add Template:="C:\test\VorlageWord.dot"
'Variablen an Bookmarks übergeben
With appWD.ActiveDocument
.Bookmarks("Name1").Range.Text = Name
.Bookmarks("Adi").Range.Text = Adi
.Bookmarks("Ort").Range.Text = Ort
.SaveAs Dateiname
.Close
End With
Next iZeile
End Sub

Gruss
Chris
Anzeige
AW: Excel ==> Word (Serienbrief mit variablen Date
11.11.2005 19:14:38
Matthias_FFM
Hallo Chris,
danke für Deine Lösung, werde sie gleich testen und auch x in einem Word-Forum vorbeischauen.
Schönes Wochenende
Matthias_FFM
;

Forumthreads zu verwandten Themen

E-Mailversand mit Anhang
Timo

Hallo ich benutze folgenden Code um mir wenn in Spalte C ein Ja steht, eine Mail an die Mailadresse aus Spalte A zu senden! Ich hab alles in einer Userform! Wo sich auch die Listbox1 befindet wo ich den oder die Dateipfad(e) für den Anhang stehen habe!
Wenn ich meine Schleife jetzt durchlau...
11.11.2008 15:07:00
Thread-ID: 1023575
2 Beiträge
Mail Anhang mit Outlook Eapress
Günther

Mion Moin Liebe Excelfreunde
das Makro funzt super, aber ich bekomme die Datei nicht eingefügt.
Jetzt möchte ich das die Datei mit angehangen wird.
der verweis ist auf Tabellenblatt "Tipper" Spalte H10" eingetragen.
C:\Eigene Dateien\Tipper\Test.xls
Sub Mail_Test() 'Exampl...
06.02.2009 10:06:00
Thread-ID: 1047646
3 Beiträge
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
e-Mail-Versand mit PDF-Anhang
kutzmutz

Hallo nochmal,
ich hab noch ein Problem mit dem eMail-Versand.
Ich generiere mir eine Liste. Diese will ich als PDF-Anhang in einer e-Mail verschicken. Der Macro-Rekoder hat mir dazu folgendes geliefert:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...
06.06.2009 16:06:45
Thread-ID: 1079612
2 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
Word-Serienbrief mit versch. Daten aus Excel
Stephan

Hallo zusammen,
habe folgendes Problem: Ich möchte die Nebenkostenabrechnungen für Mieter als Serienbrief erstellen. Die Daten hierfür sind allerdings in verschiedenen Excell-Dateien zu suchen.
Beispiel: Ich habe ein Objekt 1 ("O1"), 30 Mieter. In der Excel-Datei befinden sich die Gesam...
18.06.2009 14:54:26
Thread-ID: 1082615
4 Beiträge
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:47:56
Thread-ID: 1084609
2 Beiträge
Anzeige
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:32:33
Thread-ID: 1084612
7 Beiträge
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Email mit Anhang, falls Anhang verfügbar
Thomas

Hallo zusammen,
ich hänge gerade wieder an einer Stelle.
Ich habe ein Makro, welches vollautomatisch täglich Emails aus Excel mit 2 pdf-Dateien im Anhang versendet. Es werden ca. 50 Emails verschickt. Jede Mail an unterschiedliche Empfänger und mit unterschieldlichen pdf - Anhängen. Die...
02.12.2009 08:53:16
Thread-ID: 1121328
3 Beiträge
Email mit Anhang versenden ueber outlook
abu

Hallo Zusammen,
habe folgenden Code gefunden und wuerde den gerne fuer meine Beduerfnisse umstricken. Leider bekomme ich immer eine Fehlermeldung bei dieser Zeile:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Wuerde mich ueber hilfe sehr freuen...
16.12.2009 13:28:45
Thread-ID: 1122907
2 Beiträge
Anzeige
Lotus-Notes-Mail mit Anhang aus Excel
Wilfried

Hallo und guten Tag,
folgendes Makro habe ich im Forum gefunden. Es bleibt immer an der Zeile
(Set MailDoc = Maildb.CREATEDOCUMENT) stehen, warum? ... und was muss ich tun, damit der Code mit abgespeichert wird?
Sub SendNotesMail() Dim Maildb As Object Dim MailDbName As String Dim M...
13.01.2010 14:25:25
Thread-ID: 1129487
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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