Gruppe
Druck
Problem
Der Druckbereich der 1. Seite soll über MessageBox gemeldet werden. Wenn es sich horizontal nicht um mehrere Seiten handelt, muss der Code angepasst werden.
StandardModule: Modul1
Sub FirstPageAddress()
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))
MsgBox rng.Address
End Sub