Seitenumbruch

Hallo Zusammen!

Ich habe eine Übersicht, die mittels VBA diverse Zeilen ausblendet.

Nun ist ein fester Seitenumbruch (beim Ausdruck) den ich , je nach dem wieviele Zeilen ausgeblendet sind (die Prüfung habe ich und funktioniert) diesen Seitenumbruch (hinter Zeile 30) löschen bzw. setzen.

Ich hoffe die Erklärung reicht aus.

Vielen Dank schonmal im Voraus

Gruß

LE

Hallo LE,

was ist denn die Frage …

Hier die Antwort?

mit
ActiveSheet.HPageBreaks
bekommst du eine Liste aller vorhandenen (horizontalen) Seitenumbrüche. Die kannst du dann verändern.
ActiveSheet.HPageBreaks(2).Location.Row = 2

ungetestet!

mfg

Dirk.Pegasus

Hallo Dirk!

ActiveSheet.HPageBreaks

ActiveSheet.HPageBreaks(2).Location.Row = 2

Also ich habe generell den Seitenumbruch vor der Zeile 30.

Meine Frage ist, wie ich diesen entferne bzw. setze.

GTruß

LE

Hallo LE,

also ungefähr so:

'anderen Umbruch setzen?
if (sollIch) then
'es ist immer der erste umbruch!?
ActiveSheet.HPageBreaks(1).Location.Row = 15
'nun ist der in (vor?) Zeile 15
end if

mfg

Dirk.Pegasus

Hallo Dirk!

'anderen Umbruch setzen?
if (sollIch) then
'es ist immer der erste umbruch!?
ActiveSheet.HPageBreaks(1).Location.Row = 15
'nun ist der in (vor?) Zeile 15
end if

Genau so! :9 Danke Dir.

Ja es ist immer der erste (und einzige) Umbruch.

Wie kann ich den denn bei nicht-Bedarf wieder löschen?

gruß

LE

Hallo LE,

activesheet.HPageBreaks(0).Delete

mfg

Dirk.Pegasus