WCM Forum - Einzelnen Beitrag anzeigen

flinx · 25.10.2002, 18:01

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

Code:

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...

25.10.2002, 18:01	#10
flinx Inventar Registriert seit: 08.04.2001 Beiträge: 3.101	@Dietz Workaround: PageBreak eigenschaft des Range-Objectes abfragen: Code: 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...