Gruppe
Druck
Bereich
Serie
Thema
Seriendruck
Problem
Wie kann ich einen Seriendruck mit Adressdaten aus einer Adressdatei per VBA ablaufen lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain Sub SerienDruck() Dim wks As Worksheet Dim iRow As Integer Set wks = Worksheets("Datenbank") iRow = 1 Do Until IsEmpty(wks.Cells(iRow, 1)) Range("Adresse").ClearContents Range("Firma1") = wks.Cells(iRow, 2) Range("Firma2") = wks.Cells(iRow, 3) Range("Partner") = wks.Cells(iRow, 4) Range("Strasse") = wks.Cells(iRow, 5) Range("Ort") = wks.Cells(iRow, 6) & " " & _ wks.Cells(iRow, 7) ActiveSheet.PrintPreview iRow = iRow + 1 Loop End Sub