atutom. Seitenumbruch
Ernst
Wie müsste der unten stehenden Code vereinfacht werden, dass ein Seitenumbruch in der aktiven Tabelle immer nach 25 Zeilen erfolgt?
Bitte um Hilfe
Ernst Dunkel
Sub Seitenumbruch()
Dim i As Integer
For i = 1 To Sheets.Count 'ab Tabelle 1 bis Tabelle ----
Sheets(i).Rows(25).PageBreak = xlPageBreakManual
Sheets(i).Rows(50).PageBreak = xlPageBreakManual
Sheets(i).Rows(75).PageBreak = xlPageBreakManual
Next i
End Sub