Herbers Excel-Forum - das Archiv

Seitenwechsel finden

Bild

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

Bild

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




 Bild
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