VBA mit Excel 2000

[flinx]

@Dietz
Workaround:
PageBreak eigenschaft des Range-Objectes abfragen:

Sub tryit()
For i = 1 To 500
If ((Worksheets("Tabelle1").Rows(i).PageBreak = xlPageBreakAutomatic)
 Or (Worksheets("Tabelle1").Rows(i).PageBreak = xlPageBreakManual)) Then
MsgBox ("found" + Str(i))
End If
Next
End Sub

Ist ja nicht das wahre, aber wenigstens funktionierts...