Gruppe
Druck
Bereich
Seite
Thema
Daten von mehreren Blättern auf ein Druckblatt
Problem
Wie kann ich die Daten aus mehreren Tabellenblättern auf einem Druckblatt sammeln?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub PrintPlus()
Dim rng As Range
Dim iWks As Integer, iRow As Integer
Workbooks.Add 1
iRow = 1
For iWks = 2 To 4
Cells(iRow, 1).Value = "Blatt " & _
ThisWorkbook.Worksheets(iWks).Name
Set rng = ThisWorkbook.Worksheets(iWks) _
.Range("A1").CurrentRegion
rng.Copy Cells(iRow + 1, 1)
iRow = iRow + rng.Rows.Count + 2
Next iWks
ActiveSheet.PrintPreview
ActiveWorkbook.Close savechanges:=False
End Sub