Thema: Erste Druckseite 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

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