Ich erstelle mit dem folgenden Scrip ein Inhaltsverzeichnis, indem ich die Zellen von oben nach unten durchgehe, und alles was fett/unterstrichen ist auf ein anderes Blatt kopiere. Funktioniert gut. Nun hätte ich gerne die Seitenzahlen gem. aktuellem Umbruch dazu.
- wie frage ich die HPageBreaks ab?
- sind da auch die AutomaticPageBreaks mit dabei?
hier mein Code:
Do Until ActiveCell.Value = ""
If ActiveCell.Font.Bold And ActiveCell.Font.Underline = xlUnderlineStyleSingle Then
Selection.Copy
Sheets("Inhalt").Select
Bottom_Inhalt '-> sucht nächste freie Zeile
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Select
ActiveCell.Value = ZA
ActiveCell.Offset(-1, 2).Select
ActiveCell.Value = PA
PA = 0
Sheets("aktuell").Select
ActiveCell.Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
If Selection.Font.Bold = False Then PA = PA + 1
ZA = ZA + 1
Loop