Seitenumbruch

[herbert0803]

Hallo,

ich möchte per VBA prüfen ob oberhalb von A2 in einem bestimmten Tabellenblatt ein manueller Seitenumbruch vorhanden ist.
Wenn einer vorhanden ist möchte ich diesen löschen.

Bitte um Hilfe!

Danke!

[Kuwer]

Hallo Herbert,

Code:

Sub SeitenumbruchA2Loeschen()
 With Worksheets("Tabelle2") '<< anpassen!
   If .HPageBreaks.Count Then
     If .HPageBreaks(1).Location.Address = "$A$2" Then
       .HPageBreaks(1).Delete
     End If
   End If
 End With
End Sub

Gruß Uwe

[Steffl]

Hallo Herbert,

meinst Du so?

Code:

Sub prcSeitenumbruch()
   Dim lngC As Long
  
   With Worksheets("Tabelle1")
      For lngC = 1 To 10
         If .Rows(lngC).PageBreak = xlPageBreakManual Then .Rows(lngC).PageBreak = xlPageBreakNone
      Next lngC
   End With
End Sub

[herbert0803]

Hallo,

danke für Eure Hinweise.

@Uwe
Funktioniert, bezieht sich glaube ich aber immer auf den 1. Seitenumbruch eines Blattes.

@ Stefan
Bei deinem Code werden alle Seitenumbrüche von Zeile 1 bis 10 gelöscht, oder?
Ich will nur den Seitenumbruch vor der Zeile 2 löschen.

Habe mir daraus einen Code gebastelt.

Code:

Sub Seitenumbruch()
   With Worksheets("Tabelle2")
       If .Rows(2).PageBreak = xlPageBreakManual Then .Rows(2).PageBreak = xlPageBreakNone
   End With
End Sub

Lt. ersten Tests sollte das funktionieren.

[Kuwer]

Hallo Herbert,

über A2 kann es nur einen Seitenumbruch geben.

Gruß Uwe

[herbert0803]

Hallo Uwe,

Hallo Herbert,

über A2 kann es nur einen Seitenumbruch geben.

Gruß Uwe

ist klar.

Ich habe mich deshalb für die andere Variante entschieden, damit ich, falls ich wieder einmal so was brauche, den Code auf andere Zeilen ändern kann.

Danke trotzdem.