Daniel hat mir folgendes Makro gebastelt. Habe es dann noch etwas geändert.
Private Sub Druckbegrenzung_gewünschte_Zeilen_pro_Blatt()
Dim i As Long
Dim Wert1 As String
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
Wert1 = InputBox("Wieviel Zeilen pro Blatt?", "Zeilenbegrenzung", "25")
For i = Wert1 + 1 + 1 To ActiveSheet.UsedRange.Rows.Count Step Wert1
ActiveSheet.HPageBreaks.Add Cells(i, 1)
Next
End Sub
Es funktioniert auch prima. Wenn ich aber das Makro laufen gelassen habe und nochmals starte (dieses Mal mit einer anderen Anzahl), so wird der zuvor festgelgte Druckbereich nicht korrigiert.
Beispiel:
1. Start mit 25 klappt
2. Start mit 20 (erste Seite mit den richtigen 20, die zweite Seite hat dann aber 5).
Wie kann ich vor dem Makro den Druckbereich säubern? Ich verzweifel.
Vielen Dank!
Gruß
Markus