HILFE Seitenzahl!!!
14.08.2007 15:18:15
niru
Ich habe ein GROßES Problem und Zwar: Ich habe eine Arbeitsmappe mit 30 bis 50 Tabellenblättern, diese sollen fortlaufend durchnummeriert werden. Ich habe es mit folgendem Code probiert.
Public Sub Seitenzahlen()
'Ermittelt die Gesamtseitenzahl und trägt unter Seiteeinrichten für jedes Blatt _
die Startseitenzahl ein und passt die Fusszeile an
Dim Startseite() As Integer, Seitengesamt As Integer, i As Integer, m As Integer
'Seitenzahlen ermitteln
ReDim Startseite(1 To ActiveWorkbook.Worksheets.Count)
For i = 1 To ActiveWorkbook.Worksheets.Count
Startseite(i) = Seitengesamt + 1
Seitengesamt = (Seitengesamt + ActiveWorkbook.Worksheets(i).HPageBreaks.Count + 1)
Next i
For i = 1 To ActiveWorkbook.Worksheets.Count
With ActiveWorkbook.Worksheets(i).PageSetup
.FirstPageNumber = Startseite(i)
.RightFooter = " / Seite &P von " & Seitengesamt
End With
Next i
With ActiveWorkbook.Worksheets("Deckblatt").PageSetup
.RightFooter = ""
End With
End Sub
Doch es funktioniert nicht richtig. Die Gesamtanzahl stimmt nicht und an manchen Stellen wird die Seitennummer übersprungen z.B. seite 28 nächste seite 30
Wer kann mir Helfen?