Hab folgenden Makro getestet, zeigt alle Seitenumbrüche an?
mfg
Sub MeineSeitenumbrueche()
MsgBox ("Gefundene Umbrüche: " & ActiveSheet.HPageBreaks().Count)
For i = 1 To ActiveSheet.HPageBreaks().Count
MsgBox ("Umbruch " & i & ": " & ActiveSheet.HPageBreaks(i).Location.Address)
Next
End Sub
|