Seitenumbrüche
03.05.2006 21:24:03
SteffenS
ich habe ein kniffeliges Problem bei dem Eure Hilfe brauche.
Ich blende über ein Makro verschiedene Bereiche ein und aus.
Mal sind mehr, mal weniger Zeilen sichtbar.
Ich möchte nun aufgrund der verschiedenen Bereiche die Zeilenumbrüche variabel erzeugen.
Dies mache ich z.B. mit:
With ActiveSheet
.HPageBreaks.Add .Range("J66")
.HPageBreaks.Add .Range("J123")
.HPageBreaks.Add .Range("J191")
.HPageBreaks.Add .Range("J264")
.HPageBreaks.Add .Range("J284")
.HPageBreaks.Add .Range("J349")
.HPageBreaks.Add .Range("J394")
.HPageBreaks.Add .Range("J471")
End With
Ich mus aber vorher alle Seitenumbrüche löschen. Dazu habe ich folgenden Code:
Dim intAkt As Integer
For intAkt = 1 To ActiveSheet.HPageBreaks.Count
ActiveSheet.HPageBreaks(intAkt).Delete
Next intAkt
Leider löscht dieser nicht alle Seitenumbrüche.
Wie kann ich es also erreichen, dass ich nur meine Zeilenumbrüche einsetzen kann und alle anderen verschwinden?
Danke Euch schonmal
Steffen Schmerler