Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Seriendruck

Gruppe

Serie

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Serie