Abhängiger Seitenumbruch
Berny
Ich habe eine Aktionsliste, in der bei jeder zweiten Zeile eine neues Thema beginnt.
Überschrift
Aktion
Überschrift
Aktion
usw.
Die Zeile Aktion kann eine unterschiedliche anzahl an Zeilenumbrüchen haben = Variable höhe.
Nun soll es "natürlich" so sein, dass beim Ausdruck Überschrift und Aktion nicht durch einen Seitenumbruch getrennte werden.
Hier mein erster Versuch um das Problem zu lösen:
Sub seitenumbruch()
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks
For Each pb In ActiveSheet.HPageBreaks
If Cells(pb.Location.Row, 1).Value "Überschrift" Then ActiveSheet.HPageBreaks.Add _
Before:=Cells(pb.Location.Row - 1, 1)
Next
ActiveWindow.View = xlNormalView
End Sub
Wenn ich das Modul im Einzelschritt laufen lasse funktioniert das auch. Nur wenn ich das Modul normal durchlaufen lasse wird nur der erste Seitenumbruch korrigiert. Alle folgenden werden nicht mehr korrigiert.Hat einer eine Ahnung warum?
Wie kann ich mein Problem lösen?
M.f.G.
Berny