Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Druck aus mehreren Tabellenblättern auf eine Druckseite

Gruppe

Seite

Problem

Wie kann ich in XL8 Bereiche aus mehreren Arbeitsblättern auf eine Druckseite zusammenfassen?

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

StandardModule: basMain

Sub Foto()
   Dim iWks As Integer, iRow As Integer
   iRow = 1
   For iWks = 3 To 5
      Worksheets(iWks).Range("A1:D7").CopyPicture _
         Appearance:=xlScreen, _
         Format:=xlBitmap
      Worksheets("Sammelblatt").Paste _
         Destination:=Worksheets("Sammelblatt").Cells(iRow, 1)
      ActiveSheet.Shapes(iWks - 1).Select
         Selection.Formula = Worksheets(iWks).Name & "!A1:D7"
      iRow = iRow + 8
   Next iWks
   Range("A1").Select
   ActiveSheet.PrintPreview
End Sub

    

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