Setzen von Seitenumbrüchen mit vba

Folgende Zeilen (Zeile 6 und 8) erzeugen Laufzeitfehler Nr.9 / Index ausserhalb des gültigen Bereiches. Es gibt 7 HPageBreaks, die vorher auch per vba gesetzt wurden. Diese sehe ich auch in der Umbruchvorschau. Dabei ist nur der 1. HPageBreak in blauer "solid Line". Die anderen sind gestrichelt dargestellt. Die Fehlermeldung wird immer in Zeile 6 erzeugt, allerdings mit ist i nicht immer auf dem gleichen Wert. Ich finde den Fehler einfach nicht. Könnt Ihr mir hier weiterhelfen?

For i = 1 To 7
Set logo = ActiveSheet.Shapes(shp)
logo.Copy
ActiveSheet.Paste
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = _
ActiveSheet.HPageBreaks(i).Location.Top + Application.CentimetersToPoints(Abstand_oben)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = _
ActiveSheet.HPageBreaks(i).Location.Left + Application.CentimetersToPoints(Abstand_links)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Height = Application.CentimetersToPoints(Höhe)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Width = Application.CentimetersToPoints(breite)

Next i

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Daniel,
danke für den Hinweis die fehlererzeugenden Zeilen fett zu markieren. Die Msgbox habe ich eingefügt und bekomme erst bei dem Wert i=2 die Fehlermeldung "Laufzeitfehler 9 / Index ausserhalb des gültigen Bereiches". Das ist interessanterweise auch der erste HPageBreak, der gestrichelt dargestellt wird. Der HPageBreak(1), hat den Fehler also NICHT erzeugt, wohl aber HPageBreak(2). Ich habe es jetzt noch einmal mit beiden Arbeitsmappenansichten "Normal" und "Umbruchvorschau" ausprobiert: Tatsächlich wird der Fehler NUR in "Normal" erzeugt! Erzeugt wurden die Seitenumbrüche mit einem Call auf ein anderes Makro:

For i = 1 To anz_Seiten - 1
    Seite(i).Select
    letzteZeile = Seite(i).Rows.Count
    letzteSpalte = Seite(i).Columns.Count
    Cells(letzteZeile + 1, letzteSpalte).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    Set ActiveSheet.HPageBreaks(i).Location = Cells(letzteZeile + 1, letzteSpalte) 'Seite(i)
Next i

Dieses Makro lief aber ebenfalls nur mit ActiveWindow.View = xlPageBreakPreview (vorher) und ActiveWindow.View = xlNormalView (nach der Schleife) richtig durch. Wie gesagt, schon dieses Makro hat für den 1. HPageBreak(1) eine blaue durchgezogene Linie erzeugt, alle anderen HPageBreaks(2...7) sind gestrichelt dargestellt. Ich bin mir jetzt ziemlich sicher, dass mit diesen gestrichelten HPageBreaks Probleme entstehen, wenn ich z.B. Shapes auf einem Blatt positionieren möchte. Das Einschalten der Umbruchvorschau empfinde ich deshalb nur als einen Workaround, von dem ich mir nicht sicher bin, wie lange er zuverlässig läuft. Für den Moment werde ich es dabei belassen, es sei den Du oder andere haben noch eine gute Idee. Jedenfalls vielen Dank an Ralph und Dich Daniel für Eure Hilfe! Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Setzen von Seitenumbrüchen mit vba

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread