Seitenzahlen ermitteln!

Bild

Betrifft: Seitenzahlen ermitteln!
von: Snewi
Geschrieben am: 24.07.2015 11:25:35

Guten Morgen,
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
Das klappt soweit ausser bei Diagrammen! Wie kann ich diese darin einbauen?
Gruß

Bild

Betrifft: AW: Seitenzahlen ermitteln!
von: EtoPHG
Geschrieben am: 24.07.2015 13:20:52
Hallo Snewi,
Was heisst ... ausser bei Diagrammen??
Wenn es sich um Diagrammblätter handelt: Die sind nicht in der Worksheets-Collection enthalten, sondern nur in der Sheets-Collection. Zudem können solche keine HPageBreaks enthalten, sondern müssten einfach als 1 Seite+ behandelt werden!
Gruess Hansueli

Bild

Betrifft: AW: Seitenzahlen ermitteln!
von: Snewi
Geschrieben am: 27.07.2015 08:14:26
Ok, kann ich das denn irgendwie in den Code mit einbauen das Diagrammblätter mitgezählt werden?
Gruß

Bild

Betrifft: AW: Seitenzahlen ermitteln!
von: EtoPHG
Geschrieben am: 27.07.2015 10:38:58
Hallo Snewi,

    '....
    '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
    ' Seiten für Diagramme
    For i = 1 To ActiveWorkbook.Sheets.Count
        If ActiveWorkbook.Sheets(i).Type = xlChart Then Seitengesamt = Seitengesamt + 1
    Next i
    'Seiteneinrichtung ....
Gruess Hansueli

Bild

Betrifft: AW: Seitenzahlen ermitteln!
von: Snewi
Geschrieben am: 28.07.2015 09:14:19
Danke scheint zu funktionieren!
Gruß

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Automatische/Manuelle Berechnung bei verschiedenen"