Gruppe
Druck
Problem
Wie kann ich die Daten aus mehreren Tabellenblättern auf einem Druckblatt sammeln?
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