variabler Seitenumbruck
06.07.2021 14:36:40
Alwin
Ich habe mir in Excel eine Tabelle "Hüttenbelegung" erstellt.
Diese sieht wie folgt aus:
https://www.herber.de/bbs/user/146978.xlsx
Der Druckbereich ist auf den Spalten 01 (Hütte) bis Spalte 03 (Vorname) festegelegt.
Jetzt möchte ich, das jede Hütte auf einer Seite ausgedruckt wird.
Hierzu habe ich folgenden VBA-Code gefunden:
Sub Umbruch()
Dim rngC As Range
Cells.PageBreak = xlPageBreakNone
For Each rngC In Columns("D").SpecialCells(xlCellTypeConstants)
If rngC.Value = "JA" Then rngC.EntireRow(2).PageBreak = xlPageBreakManual
Next rngC
End Sub
Wenn ich diesen Code ausführe, bekomme ich eine Fehlermeldung.Beim debuggen wird die Zeile gelb "Cells.PageBreak = xlPageBreakNone"
Da ich absoluter Laie bin brauche ich Hilfe