wie müssen die nachfolgenden Zeilen umgeschrieben werden, damit "select" entfällt?
...
Sheets("Tabelle1").Rows("68:68").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
...
Hilfe wäre nett.
Viele Grüße
Burghard
With ActiveSheet
.HPageBreaks.Add Before:=.Rows("68:68")
End With
Grüße,