Serienbrief mit verschiedenen Tabellenblättern

Hallo Zusammen,
ich habe eine Frage zum Export von Daten in einen Serienbrief. Die Daten liegen in verschiedenen Tabellenblättern. Ca 500 Teilnehmende nehmen jeweils an ca. 20 Veranstaltungen teil - aus einem Gesamtangebot von etwa 300 Veranstaltungen, die 28 feststehenden Modulen zugeordnet sind. Diese Veranstaltungen sind fortlaufend nummeriert (M1, M2, ...).
Tabellenblatt 1 enthält die Personendaten und - in Spalten angeordnet - die ca 20 Module (M1, M7, M45, ...), die der jeweilige Teilnehmende besucht hat.
Tabellenblatt 2 listet die Veranstaltungen auf inklusive Datum, Veranstaltungstitel und dem offiziellen Modulnamen, dem die Veranstaltung zugeordnet ist. Tabellenblatt 3 enthält die 28 offiziellen Module.
Jeder Teilnehmende soll ein Zertifikat erhalten, auf dem die Teilnahme an den ca. 20 Veranstaltungen bescheinigt wird. Aber nicht nur mit "M1, M2, M3, ...", sondern mit den Angaben aus Tabellenblatt 2 (Datum, Veranstaltungsname/ Inhalt, offizieller Modultitel).
Eine Beispieldatei habe ich angehängt: https://www.herber.de/bbs/user/127938.xlsx
Ist das möglich per Serienbrief?
Ich sehe gerade den Wald vor lauter Bäumen nicht und wäre für Anregungen dankbar. Ich hoffe allerdings ohne VBA, da ich absolut ahnungslos bin!
Danke und einen schönen Tag!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Serienbrief() 'Dim WordApp As Word.Application 'Dim Template As Word.Document Dim WordApp As Object 'LATE BINDING Dim Template As Object 'LATE BINDING 'Set WordApp = New Word.Application Set WordApp = CreateObject("Word.Application") 'LATE BINDING WordApp.Documents.Open "C:\Users\admin\Documents\VBA\Serienbrief-Ahnungslos.docx" WordApp.Visible = True Set Template = WordApp.Documents("Serienbrief-Ahnungslos.docx") 'TEXTMARKEN INHALT AUS DER EXCEL-DATEI ZUWEISEN With Template .Bookmarks("Vorname").Range.Text = Sheets(1).Range("B2").Value .Bookmarks("Datum").Range.Text = CDate(Sheets(2).Range("D2")) .Bookmarks("Name").Range.Text = Sheets(1).Range("A2").Value .Bookmarks("Modultitel").Range.Text = Sheets(2).Range("B2").Value .Bookmarks("Modulinhalt").Range.Text = Sheets(2).Range("C2").Value End With 'Template.Close SaveChanges:=False 'WordApp.Visible = False End Sub

Hier nochmal in dynamisch. Hatte gerade Bock drauf. Du musst nur noch die Speicherpfade anpassen.


Option Explicit
Sub Serienbrief()
'Dim WordApp As Word.Application
'Dim Template As Word.Document
Dim WordApp As Object 'LATE BINDING
Dim Template As Object 'LATE BINDING
Dim lastRow, i, x, findRow As Integer
Dim r, findModul, findRange As Range
Set findRange = Sheets(2).Range("A:A")
'FÜR DIE FORTLAUFENDE NUMMERIERUNG DER SERIENBRIEFE
x = 1
lastRow = Sheets(1).Cells(Sheets(1).Rows.Count, 1).End(xlUp).Row
'Set WordApp = New Word.Application
Set WordApp = CreateObject("Word.Application") 'LATE BINDING
For i = 2 To lastRow
For Each r In Range(Sheets(1).Cells(i, 7), Sheets(1).Cells(i, Sheets(1).UsedRange.Columns. _
Count - 6))
If IsEmpty(r) = False Then
WordApp.Documents.Open "C:\Users\admin\Documents\VBA\Serienbrief-Ahnungslos.docx"
WordApp.Visible = True
Set Template = WordApp.Documents("Serienbrief-Ahnungslos.docx")
findRow = findRange.find(r, LookAt:=xlWhole).Row
'TEXTMARKEN INHALT AUS DER EXCEL-DATEI ZUWEISEN
With Template
.Bookmarks("Vorname").Range.Text = Sheets(1).Cells(i, 2).Value
.Bookmarks("Datum").Range.Text = CDate(Sheets(2).Cells(findRow, 4).Value)
.Bookmarks("Name").Range.Text = Sheets(1).Cells(i, 1).Value
.Bookmarks("Modultitel").Range.Text = Sheets(2).Cells(findRow, 2).Value
.Bookmarks("Modulinhalt").Range.Text = Sheets(2).Cells(findRow, 3).Value
End With
Template.SaveAs2 "C:\Users\admin\Desktop\" & "Serienbrief" & x & ".docx"
x = x + 1
Template.Close SaveChanges:=False
WordApp.Visible = False
End If
Next r
Next i
End Sub

Beliebteste Forumthreads (12 Monate)

Serienbrief mit verschiedenen Tabellenblättern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread