Seitenzahlen ermitteln!
24.07.2015 11:25:35
Snewi
um von allen Tabellenblättern eine fortlaufende Zahl in der Fusszeile anzugeben nutze ich per VBA folgenden Code:
Sub Seitenzahlen()
Dim i As Integer
Dim Startseite() As Integer
Dim Seitengesamt As Integer
'Seitenzahlen ermitteln
ReDim Startseite(1 To 4)
For i = 1 To 4
Startseite(i) = Seitengesamt + 1
Seitengesamt = Seitengesamt + ActiveWorkbook.Worksheets(i).HPageBreaks.Count + 1
Next i
'Seiteneinrichtung anpassen
For i = 1 To 4
With ActiveWorkbook.Worksheets(i).PageSetup
.FirstPageNumber = Startseite(i) 'Startseite setzen
.RightFooter = " Seite &P von " & Seitengesamt
End With
Next i
End Sub
Gruß