Gruppe
Druck
Problem
Wie kann ich exakt die erste Druckseite des aktiven Blattes in eine neue Arbeitsmappe kopieren?
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