Excel und VBA: Formeln, Programmierung, Lösungen

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