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
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