Spaltenumbruch

Sub Seitenumbruch_KalenderH1()
ActiveSheet.Unprotect Password:=""
Dim SU_1 As Worksheet
WorkSheets("Phase I-V 1H").ResetAllPageBreaks
'ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$A$2:$GJ$112"
For Each SU_1 In ThisWorkbook.WorkSheets
'SU_3.ResetAllPageBreaks
SU_1.Cells(112, 11).PageBreak = xlPageBreakManual 'Zeile 112, Spalte 11
Next
Dim SU_2 As Worksheet
For Each SU_2 In ThisWorkbook.WorkSheets
'SU_2.ResetAllPageBreaks
SU_2.Cells(112, 100).PageBreak = xlPageBreakManual 'Zeile 112, Spalte 100
Next
Dim SU_3 As Worksheet
For Each SU_3 In ThisWorkbook.WorkSheets
'SU_3.ResetAllPageBreaks
SU_3.Cells(112, 192).PageBreak = xlPageBreakManual 'Zeile 112, Spalte 192
Next
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Protect Password:=""
End Sub