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