Problem mit HPageBreaks
21.08.2006 20:39:57
Peter
über folgendes Problem zum Thema HPageBreaks bin ich gerade gestolpert:
Ich habe eine Tabelle mit 1419 Datensätzen (33 Blöcke zu je 43 Zeilen).
Nach jedem Block möchte ich einen Seitenvorschub einbauen ... und zwar so:
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & (43 * AnzahlAbrechnungen)
ActiveWindow.View = xlPageBreakPreview
For x = 1 To (AnzahlAbrechnungen - 1)
Set ActiveSheet.HPageBreaks(x).Location = Range("A" & (1 + (43 * x)))
Next x
ActiveWindow.View = xlNormalView
Bis zum Umbruch Nr. 26 klappt das auch ... aber dann bekomme ich die Fehlermeldung: "Laufzeitfehler 9: Index außerhalb des gültigen Bereiches".
Habt Ihr eine Idee, was ich da falsch mache?
Vielen Dank für Eure Hilfe
Gruß
Peter