Anzahl Seiten pro Worksheet ermitteln
19.07.2018 11:26:04
Peter
Ich habe in meinem Workbook verschiedene Worksheets, deren Namen aus einem einzigen Buchstaben besteht.
Mit nachstehendem Code soll die Fusszeile aktualisiert werden, so pro Worksheet in der Fusszeile jeweils die Angabe SeitenNr / von Totalseiten pro Worksheet steht.
Mir ist nicht klar, weshalb die Gesamtseitenzahl pro Worksheet des öftern nicht sauber ermittelt wird.
Kann mir jemand weiterhelfen?
Danke und Gruss, Peter
Sub Fusszeile()
Dim wks As Worksheet, iSeiten As Integer
ThisWorkbook.Activate
For Each wks In ActiveWorkbook.Worksheets
If Len(wks.Name) 1 Then
Else 'nur ausführen, wenn Name Worksheet aus einem Buchstaben besteht
iSeiten = ExecuteExcel4Macro("Get.Document(50," & """" & wks.Name & """" & ")")
Debug.Print wks.Name & " " & iSeiten
wks.PageSetup.FirstPageNumber = 1
wks.PageSetup.LeftFooter = "&""Arial,Standard""&8Peter Schmid, &D" & Chr(10) & "&F / &A" _
_
wks.PageSetup.CenterFooter = ""
wks.PageSetup.RightFooter = "&""Arial,Standard""&8&P / " & iSeiten
End If
Next
End Sub