Beispiel: wenn in den Zeile Z1, AR1 und BL1 ein "Hier" steht, dann muss ein Seintenumbruch vor den Spalten Z, AR und BL gesetzt werden.
VIELEN DANK!
Sub Seitenumbruch()
For i = Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Sheets(1).Cells(i, 1) = "Hier" Then
Sheets(1).HPageBreaks.Add Rows(i)
End If
Next
End Sub
Sub Test5_Seitenumbruch_einfuegen()
Dim lngColumn As Long
For lngColumn = 1 To ActiveSheet.Cells(1, .Columns.Count).End(xlToLeft).Column
If Cells(1, .Columns.Count) = "Hier" Then _
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, lngColumn + 1)
Next
End Sub