kann mir jemand den VBA-Befehl sagen, mit dem ich den Seitenumbruch verschieben kann?
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