Gruppe
Druck
Bereich
Seite
Thema
Erste Druckseite in eine neue Arbeitsmappe kopieren
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