Office: manuellen Seitenumbruch aus Zellwert und Konstante einfügen

Hallo Zusammen,

ich möchte den Druckbereich per VBA festlegen und dabei einen manuellen Seitenumbruch einfügen. Da es im Original mehrere Seitenumbrüche sein werden, möchte ich dies über Konstanten erreichen, die ja vorab festgelegt sind. Hier mal mein Code dazu, der auch soweit funktioniert.
Code:

Die Konstante einsetzen, .HPageBreaks.Add Before:=Rows(Bezeichnung) funktioniert auch und der Seitenumbruch wird ebenfalls richtig gesetzt.
Das Wort Bezeichnung steht in Zelle D1.
Ich suche nach einer Lösung, die ungefähr so aussieht, .HPageBreaks.Add Before:=Rows(Cells(1,4).Value) funktioniert aber nicht, Laufzeitenfehler 13 erscheint, Typen unverträglich. Wie muß ich es an dieser Stelle einfügen, das das Wort in Zelle D1 die Konstantenbezeichnung ist?

Wäre für Hilfe und Lösungsvorschläge dankbar.

:)

 

Ich glaube nicht, dass das so funktioniert (korrigiert mich wenn notwendig).
Erkläre doch bitte mal, wozu es gut sein soll, den String "Bezeichnung" in D1 zu schreiben. Und wieviele Konstanten soll es denn geben?
Wieso nicht eine Variable mittels
Code:

 

Hallo Berni,

Ausgangspunkt sind 4 CheckBoxen, die entweder auf True oder False stehen.
Je nachdem wie sie angeklickt sind, erfolgt in den Zeilen 1 bis 4 dann eine Zusammenstellung. Sind zum Beispiel die CheckBoxen 1, 3 und 4 auf True, sind nur 3 Zeilen belegt. Aus meinem Tabellenblatt entstehen so 4 Seiten, je eine für die 3 CheckBoxen und 1 für die Zusammenstellung.

Werde mal deinen Vorschlag ausprobieren. Danke erstmal.

 

Habe es ein bisschen umgebaut und mich mit dem Vorschlag von Berni auseinandergesetzt und zu meiner Lösung gekommen.

Code:

In Spalte C stehen fortlaufend die Nummern der Zusammenstellung (ab Zeile 244) beginnend mit 1. Da vor der ersten Seite kein Seitenumbruch kommt, beginnt die Schleife erst bei 2. Ist Zeile 244 ausgeblendet, erhält die nächste Zeile die Zahl 1.
Mit If Cells(i, 3).Value > 1 Then wird dann ausgeschlossen, das vor der ersten Seite ein Seitenumbruch eingefügt wird.

Anbei die Datei.

Eine einfachere Lösung habe ich dann während des Arbeitens auch noch gefunden. Da alle Seiten in Ihrer Größe fest sind, kann ich auch die letzte Zeile in der Größe so verändern, das der Seitenumbruch automatisch funktioniert. Das ist natürlich von der Seiteneinstellung abhängig, aber darauf habe ich ja Einfluss, das die gleich bleibt.