Kann mir jemand sagen, wie ich die Zeilen, in denen sich ein Seitenwechsel
befindet auslesen kann?
z.B. zwischen Zeile 69 und 70 der Seitenwechsel.
Meldung "Seitenwechsel in Zeile 69"
Gruss Werner
Sub WoPageBreak()
Dim x As Variant
For Each x In ActiveSheet.HPageBreaks
MsgBox x.Location.Address
Next
End Sub
Sub test()
Dim rng As Range
For Each rng In Range("A1:A" & Range("A65536").End(xlUp).Row)
If rng.EntireRow.PageBreak <> xlNone Then
MsgBox "Seitenumbruch oberhalb Zeile " & rng.Row
End If
Next 'rng
End Sub