Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Seitenumbruch
#1
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!
LG Herbert
Windows 10
Office 365
Antworten Top
#2
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • herbert0803
Antworten Top
#3
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
Gruß Stefan
Win 10 / Office 2016
[-] Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:
  • herbert0803
Antworten Top
#4
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.
LG Herbert
Windows 10
Office 365
Antworten Top
#5
Hallo Herbert,

über A2 kann es nur einen Seitenumbruch geben.

Gruß Uwe
Antworten Top
#6
Hallo Uwe,

(05.06.2015, 16:59)Kuwer schrieb: 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.
LG Herbert
Windows 10
Office 365
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste