Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Erste Druckseite in eine neue Arbeitsmappe kopieren

Gruppe

Seite

Problem

Wie kann ich exakt die erste Druckseite des aktiven Blattes in eine neue Arbeitsmappe kopieren?

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

StandardModule: basMain

Sub ErsteSeiteKopieren()
   Dim rng As Range
   Dim iRow As Integer, iCol As Integer, iCounter As Integer
   Application.ScreenUpdating = False
   iRow = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") - 1
   iCol = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(65),1)") - 1
   Set rng = Range(Cells(1, 1), Cells(iRow, iCol))
   Workbooks.Add
   rng.Copy Range("A1")
   For iCounter = 1 To rng.Columns.Count
      Columns(iCounter).ColumnWidth = rng.Columns.ColumnWidth
   Next iCounter
   For iCounter = 1 To rng.Rows.Count
      Rows(iCounter).RowHeight = rng.Rows.RowHeight
   Next iCounter
End Sub

    

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