Seitenwechsel finden

• Seitenwechsel finden von Atikar vom 31.10.2003 11:12:47
  • AW: Seitenwechsel finden - von Monika Weber am 31.10.2003 12:38:16

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

Excel-Beispiele zum Thema " Seitenwechsel finden"
Doppelte Einträge finden und löschen	Schaltflächen-Id-Nummer finden und Schaltfläche einfügen
Datensätze wechselseitig bei Nichtauffinden markieren	Alle Zellen mit Formeln finden