Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub MehrBereichsDruck()
   Dim rng As Range, rngAct As Range
   Dim iRow As Integer, iCounter As Integer
   Application.ScreenUpdating = False
   Set rng = Selection
   Workbooks.Add 1
   For Each rngAct In rng.Areas
      iCounter = iCounter + 1
      If iRow > 0 Then
         iRow = Cells(Rows.Count, 1).End(xlUp).Row + 2
      Else
         iRow = 1
      End If
      Cells(iRow, 1).Value = iCounter & ". Bereich:"
      rngAct.Copy Cells(iRow + 1, 1)
   Next rngAct
   ActiveSheet.PrintPreview
   ActiveWorkbook.Close savechanges:=False
   Application.ScreenUpdating = True
End Sub

    

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