Office: Seitenzahl einer Zelle ermitteln

Hallo zusammen

Ich hab da ein kleines Problem bei einem Makro. Ich möchte für ein Dokument, welches aus ein paar hundert Seiten besteht ein Inhaltsverzeichnis erstellen. Dabei möchte ich für alle Zellen in Spalte A, die einem bestimmten Kriterium entsprechen (Zugnummer) die Seitenzahl ermitteln und im Inhaltsverzeichnis beim entsprechenden Eintrag einfügen.

Dazu verwende ich folgenden Code:

Dim HPB As HPageBreak
Dim Zelle As Range
Dim seitenZahl As Integer
For Each Zelle In Workbooks(deckblatt).Sheets(1).Range("A58:A" & Workbooks(deckblatt).Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
If Zelle.Value = "Int. Zug-Nr." Then
seitenZahl = 1
For Each HPB In Workbooks(deckblatt).Sheets(1).HPageBreaks
If HPB.Location.Row > Zelle.Row Then
Exit For
End If
seitenZahl = seitenZahl + 1
Next HPB

'seitenZahl = Seite(Zelle)
Set Zug = Workbooks(deckblatt).Sheets(1).Range("A" & Zelle.Row + 1)
For i = 2 To ptr - 1
If Workbooks(1).Sheets("Inhalt").Range("C" & i).Value = Zug.Value Then
Workbooks(1).Sheets("Inhalt").Range("D" & i).Value = seitenZahl
Exit For
End If
Next i
End If
Next Zelle



Leider werden bei diesem Code aber nur die Seitenumbrüche erkannt, welche ich zuvor manuell eingefügt habe. Die automatischen sind im HPageBreaks-Objekt nicht enthalten. Woran liegt das? Wie kann ich die automatischen Umbrüche auch erfassen?

Danke für eure Rückmeldungen

Gruss zugplaner

:)

 

Hi,

vielleicht nach diesem Prinzip:
Code:

 

Hallo Beverly

Danke für die Hilfe. Dein Code funktioniert bei mir so aber leider nicht.
Das Problem ist, dass die automatisch erzeugten horizontalen Seitenumbrüche in ActiveSheet.PageBreaks.Count nicht gezählt werden, sondern nur die manuell eingefügten.
Damit bin ich gleich weit wie vorhin. Ich bin aber darauf angewiesen, da manche Züge mehr als eine Seite brauchen und dadurch ein Seitenumbruch automatisch erzeugt wird, während ich zu Beginn jedes Zuges bei "Int. Zug-Nr." manuell einen Umbruch einfüge...

 

Hi,

dann wirst du wohl anstelle der automatischen auch noch manuelle einfügen müssen - ich bin mir nicht sicher, aber ich glaube, beides zusammen geht nicht.