VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Seriendruck

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

    

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