Sub GruppePageBreack()
Dim rngCell As Range
Application.ScreenUpdating = False
With ActiveSheet
.ResetAllPageBreaks
For Each rngCell In .Range(.Cells(2, 3), _
.Cells(.Cells(.Rows.Count, 3).End(xlUp).Row, 3))
If rngCell.Offset(1, 0) rngCell Then _
.Rows(rngCell.Row + 1).PageBreak = xlPageBreakManual
Next rngCell
End With
Application.ScreenUpdating = True
End Sub
Sub GruppePageBreack()
Dim rngCell As Range, lngView As Long
Application.ScreenUpdating = False
With ActiveWindow
lngView = .View
.View = xlPageBreakPreview
End With
With ActiveSheet
.ResetAllPageBreaks
For Each rngCell In .Range(.Cells(3, 3), _
.Cells(.Cells(.Rows.Count, 3).End(xlUp).Row, 3))
If rngCell.Offset(-1, 0) rngCell Then _
.Rows(rngCell.Row).PageBreak = xlPageBreakManual
Next rngCell
End With
ActiveWindow.View = lngView
Application.ScreenUpdating = True
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