Gruppe
Druck
Problem
Die Druckseite des aktiven Blattes und die Anzahl der Gesamtdruckblätter der Arbeitsmappe sollen ermittelt werden.
StandardModule: Modul1
Sub GetPageIdx()
Dim wksStart As Worksheet
Dim wks As Worksheet
Set wksStart = ActiveSheet
Application.ScreenUpdating = False
Dim iPage As Integer, iCount As Integer
For Each wks In Worksheets
wks.Select
iCount = iCount + ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")
If wks.Name = wksStart.Name Then iPage = iCount
Next wks
wksStart.Select
MsgBox "Blatt " & iPage & " von " & iCount
Application.ScreenUpdating = True
End Sub