VBA (Excel 2003): .HPageBreak Indexfehler

Computer: Software & Programmierung Visual Basic
#1

Hi!
Bei meinem Makro soll in der ersten Zeile der neuen Seite eine Zeile eingefügt werden:

LastEntry = Worksheets(„Tabelle 1“).HPageBreaks.Count
For I = 1 To LastEntry
Worksheets(„Tabelle 1“).Range(Worksheets(„Tabelle 1“).Cells(ActiveSheet.HPageBreaks(I).Location.Row, 1), _
Worksheets(„Tabelle 1“).Cells(ActiveSheet.HPageBreaks(I).Location.Row, Cells.Columns.Count)).Insert Shift:=xlDown
Next I

LastEntry gibt 5 zurück; geht I aber auf >=2, erscheint eine Fehlermeldung, daß der Index außerhalb des gültigen Bereichs ist.

Kann mir jemand weiterhelfen? Vielen Dank schonmal!

Gruß Andreas

#2

Bei meinem Makro soll in der ersten Zeile der neuen Seite eine
Zeile eingefügt werden:

Hi Andreas,

Sub tt()
Dim LastEntry As Long, I As Long, Merker As Long
Application.ScreenUpdating = False
Merker = ActiveWindow.View
ActiveWindow.View = xlPageBreakPreview
With Worksheets("Tabelle1")
 LastEntry = .HPageBreaks.Count
 For I = 1 To LastEntry
 .Range("A" & .HPageBreaks(I).Location.Row).Insert Shift:=xlDown
 Next I
End With
ActiveWindow.View = Merker
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard