Hallo, hier eine Lösung, wie ich sie weiter oben beschrieben hatte
Sub SpezTeilung()
With ActiveSheet
d = .HPageBreaks.Count
For i = d To 1 Step -1
.HPageBreaks(i).Delete
Next
a1 = Val(InputBox(" ", "Zeilen für Blatt 1", 50))
a2 = Val(InputBox(" ", "Zeilen für Blatt 2", 40))
a3 = Val(InputBox(" ", "Zeilen für Weitere Blätter", 50))
lz = Cells(Rows.Count, 1).End(xlUp).Row
If a1 < lz Then .HPageBreaks.Add Before:=Cells(a1 + 1, 1)
If a1 + a2 < lz Then .HPageBreaks.Add Before:=Cells(a1 + a2 + 1, 1)
s = a1 + a2 + 1
Do Until s >= lz
s = s + a3
.HPageBreaks.Add Before:=Cells(s, 1)
Loop
.PrintOut
End With
End Sub
|