Spaltenumbruch
Manfred
ich benötige mal wieder eure Hilfe.
Was muss ich ändern damit das Makro in den Spalten 11, 100 und 192 einen Umbruch einfügt ?
Der Zeilenumbruch ist immer in Zeile 112.
Im Moment wird nur der Druckbereich A2:GJ112 festgelegt.
Option Explicit
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
Danke im vorab.
Mit freundlichen Grüßen
Manfred