ich beschäftige mich seit einer Weile mit einem Problem, das ich aber nicht wunschgemäß gelöst bekomme: Ich möchte gerne die Zeilen aller Seitenumbrüche (sind alle horizontal) ermitteln. Ich habe zwei Ansätze, die beide nicht wie gewünscht klappen:
Beim folgenden Code werden zwar alle Seitenumbrüche ordnungsgemäß gefunden, allerdings benötigt das Makro dafür eine halbe Ewigkeit:
Sub Zeilenumbrüche1()
Dim i As Long
For i = 5 To ActiveSheet.UsedRange.Rows.Count
If ActiveSheet.Rows(i).PageBreak = xlPageBreakAutomatic Then
Cells(i, 1).Select
MsgBox "Zeilenumbruch in Zeile " & i
End If
Next
End Sub
... auch "Application.Calculation = xlCalculationAutomatic" bringt da keine Verbesserung.Der nächste Code würde zwar wesentlich schneller funktionieren, stoppt aber mit der Fehlermeldung "Laufzeitfehler '9': Index außerhalb des gültigen Bereichs":
Sub Zeilenumbrüche2()
Dim HBreaks As Long, i As Long
HBreaks = ActiveSheet.HPageBreaks.Count
For i = 1 To HBreaks
Cells(i, 1).Select
MsgBox "Zeilenumbruch in Zeile " & ActiveSheet.HPageBreaks(i).Location.Row
Next i
End Sub
Falls der Grund meines Makros von Bedeutung sein sollte: Ich möchte gerne die Zeilenumbrüche ermitteln, damit ich die Zellen der unterste Zeile eines jeden Blattes per VBA automatisch mit einer Rahmenlinie formatieren kann. Da es die Wiederholungszeilen leider nur für oben gibt, versuche ich es per Makro.Über Vorschläge würde ich mich sehr freuen.
Viele Grüße
Martin