Sub List_Pagebreaks()
Dim wks As Worksheet
Dim objHPB As HPageBreak
Dim objVPB As VPageBreak
Set wks = ThisWorkbook.Sheets(1)
For Each objHPB In wks.HPageBreaks
MsgBox "Horizontaler Seitenumbruch an Adresse " & objHPB.Location.Address
Next objHPB
For Each objVPB In wks.VPageBreaks
MsgBox "Vertikaler Seitenumbruch an Adresse " & objVPB.Location.Address
Next objVPB
End Sub
Sub Remove_Pagebreak()
Dim wks As Worksheet
Dim objVPB As VPageBreak
' Zeiger auf gewuenschtes Worksheet setzen
Set wks = ThisWorkbook.Sheets(1)
' Seitenwechsel kann nur geloescht werden, wenn manuell gesetzt !
' Hier ein Test fuer den ersten Seitenwechsel
If wks.VPageBreaks(1).Type = xlPageBreakManual Then _
wks.VPageBreaks(1).Delete
' Hier das Loeschen eines vertikalen Seitenwechsels mit Auswerten der Adresse
For Each objVPB In wks.VPageBreaks
' Nur loeschen wenn manueller Seitenwechsel und Adresse stimmt
If objVPB.Type = xlPageBreakManual And objVPB.Location.Address = "$F$1" Then
objVPB.Delete
Exit For ' Schleife verlassen, da wenn der Seitenwechsel geloescht wird,
' wird die Liste damit veraendert.
' Fuehrt ggf. zu Laufzeitfehler
End If
Next objVPB
End Sub
Sub List_Pagebreaks()
'* ERWEITERT
Dim wks As Worksheet
Dim objHPB As HPageBreak
Dim objVPB As VPageBreak
Dim strTypePB As String
Set wks = ThisWorkbook.Sheets(1)
For Each objHPB In wks.HPageBreaks
If objHPB.Type = xlPageBreakManual Then
strTypePB = "manueller"
Else
strTypePB = "automatischer"
End If
MsgBox "Horizontaler " & strTypePB & " Seitenumbruch an Adresse " & objHPB.Location.Address
Next objHPB
For Each objVPB In wks.VPageBreaks
If objVPB.Type = xlPageBreakManual Then
strTypePB = "manueller"
Else
strTypePB = "automatischer"
End If
MsgBox "Vertikaler " & strTypePB & " Seitenumbruch an Adresse " & objVPB.Location.Address
Next objVPB
End Sub
Um einen Seitenumbruch in Excel zu verschieben, kannst du die folgenden Schritte befolgen:
Seitenumbruchvorschau aktivieren:
Seitenumbruch verschieben:
Manuellen Seitenumbruch einfügen:
Strg + Shift + Enter hinzufügen oder über die Registerkarte „Seitenlayout“ -> „Umbrüche“ und dann „Seitenumbruch einfügen“ wählen.Automatische Seitenumbrüche entfernen:
Dokument drucken:
Seitenumbruch lässt sich nicht verschieben:
Seitenumbruch wird nicht angezeigt:
Excel seitenumbruch ändern geht nicht:
VBA zur Seitenumbruchverwaltung:
Sub Remove_Pagebreak()
Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets(1)
wks.VPageBreaks(1).Delete
End SubVerwendung von Tastenkombinationen:
Alt + P + B + I, um einen Seitenumbruch schnell einzufügen.Seitenumbruch vor einer bestimmten Zeile setzen:
Sub Insert_Pagebreak()
Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets(1)
wks.HPageBreaks.Add Before:=wks.Rows(5)
End SubSeitenumbrüche auflisten:
Sub List_Pagebreaks()
Dim wks As Worksheet
Dim objHPB As HPageBreak
Set wks = ThisWorkbook.Sheets(1)
For Each objHPB In wks.HPageBreaks
MsgBox "Horizontaler Seitenumbruch an Adresse " & objHPB.Location.Address
Next objHPB
End Sub1. Wie kann ich einen automatischen Seitenumbruch entfernen? Um automatisierte Seitenumbrüche zu entfernen, musst du manuelle Seitenumbrüche hinzufügen, da Excel die automatischen Umbrüche basierend auf dem Layout berechnet.
2. Was passiert, wenn ich einen Seitenumbruch verschiebe? Beim Verschieben eines Seitenumbruchs werden die Druckeinstellungen und die Anordnung der Daten auf den Seiten neu berechnet, was dazu führen kann, dass sich andere Seitenumbrüche ebenfalls verschieben.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen