Herbers Excel-Forum - das Archiv
Seitenwechsel finden
Betrifft: Seitenwechsel finden
von: Atikar
Geschrieben am: 31.10.2003 11:12:47
Hallo,
ein macro soll eine tabelle durchsuchen und die seitenumbrüche finden, um dann dort z.B. was zu schreiben.
hiermit finde ich den ersten scheinbar, aber wie sucht der weiter?
ActiveSheet.HPageBreaks(1).Location.Row
vielen dank im vorraus
ciao
atikar
Betrifft: AW: Seitenwechsel finden
von: Monika Weber
Geschrieben am: 31.10.2003 12:38:16
Hallo atikar,
evtl. hilft Dir als Lösungsansatz etwas in der Art weiter:
Sub test()
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count + 1
If Rows(i).PageBreak <> xlNone Then
Rows(i).Interior.Color = vbRed
End If
Next i
End Sub
Es liebs Grüessli
Monika