Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrbereichsauswahl auf eine Seite drucken

Gruppe

Bereich

Problem

Bei einer Mehrbereichsauswahl druckt Excel jede Seite auf einem extra Blatt. Wie kann ich die Bereiche so zusammenfassen, daß nur ein Blatt gedruckt wird?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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