Thema: Mehrbereichsauswahl auf eine Seite drucken.

StandardModule: basMain

Sub MehrBereichsDruck()
   Dim wksSource As Worksheet, wksTarget As Worksheet
   Dim rng As Range
   Dim iRow As Integer, intRng As Integer
   Application.ScreenUpdating = False
   Set wksSource = ActiveSheet
   Set wksTarget = Worksheets.Add
   wksSource.Select
   iRow = 1
   With wksTarget
      For Each rng In Selection.Areas
         intRng = intRng + 1
         .Cells(iRow, 1) = "Bereich Nr. " & intRng
         rng.Copy
         .Cells(iRow + 2, 1).PasteSpecial Paste:=xlValues
         iRow = .Cells.Find("*", Range("A1"), , , _
            xlByRows, xlPrevious).Row + 2
      Next rng
      .Columns.AutoFit
      .PrintPreview
      Application.DisplayAlerts = False
      .Delete
      Application.DisplayAlerts = True
   End With
End Sub

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