DruckseitenAnzahl
22.11.2008 16:03:00
Gast
auf des Suche nach der Möglich die Seitenanzahl des aktiven Arbeitsblattes zu ermitteln, habe ich das nachfolgende Makro gefunden.
Sub DruckseitenAnzahl()
Dim SZ&
SZ = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "Anzahl der Seiten: " & SZ
End Sub
Es funktioniert auch unter Excel 2007!
"ExecuteExcel4Macro"? gibt es da was neueres?
Gruß Gast
Anzeige