Hilfe bei Fehler in Makro
28.03.2018 10:02:35
Marco
ich verzweifle an einem kleinen Makro. Kann mir jemand den Fehler finden?
Sub Bereiche_trennen()
Sheets("Bereiche").Select
ActiveSheet.ResetAllPageBreaks
Dim lngRow As Long
For lngRow = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lngRow, 170) = "cut" Then _
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(lngRow + 1, 1)
Next
End Sub
Vielen Dank