Office: Location des Seitenumbruchs auslesen

Hallöchen,

ich möchte die Zeile des Seitenumbruchs (HPageBreak) auslesen. Leider bin ich da auf folgendes Problem gestoßen.

Frage1: Wenn ich nicht explizit einen HPagBreak einfüge, wird dann mit folgendem Code überhaupt etwas gefunden?

Code:

Weil Standartmäßig müssten doch von Excel schon HPageBreaks vorhanden sein?

Das Problem ist, das wenn ich nicht irgendein HPageBreak setze, der obige Code eine Fehlermeldung erzeugt.

Der Witz ist nur, wenn ich irgendeinen HPageBreak setzte, dann liefert mir obiger Code die Position des PageBreak welcher Standartmäßig im Excel angezeigt wird, jedoch nicht die Position des von mir gesetzten Breaks.

mfg Harkone

:)

 

Hallöchen nochmal,

hab den Fehler gefunden. Das ActiveSheet ist das Problem. Es war ein anderes Sheet auf active gesetzt, als das was ich eigentlich durchsucht habe.

Um diesen Fehler nicht zu wiederholen möchte ich gerne den eindeutigen Namen des Sheets verwenden (siehe Code), leider kommt dabei immer die Fehlermeldung "Runtim Error 9 Subscript out of Range"

Code:

Kann mir jemand helfen?

mfg Harkone

 

Hallo harkone,

warum "NewWorkbook"? Was willst du damit erreichen?

Gruß Ingolf

 

Hallo,

oh sorry das hatte ich vergessen mit anzugeben,
NewWorkbook ist der Name eines von mir erstellten Workbooks.

Code:

 

Hallo harkone,

NewWorkbook ist ein VBA-Schlüsselwort. Du musst dir für deine Variable einen anderen Namen ausdenken.

Gruß Ingolf

 

Echt?

ich habe das aber schon durch meinen kompletten Code mit durchgezogen und es gab bisher nie Probleme.

Ich werds trotzdem mal probieren.

mfg Harkone

 

Hallo nochmal,

also ich habs jetzt überall geändert. Leider tritt immernoch der selbe Fehler auf.

Code:

 

Auch diese Code Version führt zu dem selben Fehler.

Code:

Kennt jemand von Euch zufällig eine andere Möglichkeit die Zeilennummer des Seitenumbruches auszulesen, oder sieht jemand den Fehler den ich mache?

mfg Harkone

 

Hallo harkone,

Unmittelbar nach Workbooks.Add kann das betreffende Tabellenblatt noch keinen spezifischen Namen haben. Die Tabellenblätter haben die Standardnamen "Tabelle1" usw. Liegt da vielleicht der Knackpunkt?

Gruß Ingolf

 

Hallo,

wieder Mist, sorry ich will nicht den ganzen Code reinstellen, aber ich vergesse immer die notwendigen Sachen.

Code:

Wird vorher noch gesetzt. Also Namen etc. sind alle vergeben.

Entschuldigung das ich nicht alles klar reingeschrieben habe.

 

Also bei mir läuft der Befehl problemlos.
Du könntest noch testen ob PBs vorhanden sind:
x=TargetWorkbook.Sheets("Band1 Overview").HPageBreaks.Count

 

Hallo harkone,

jetzt fällt mir gerade ein, dass ich auf dieses Problem vor nicht allzu langer Zeit schon einmal gestoßen bin. Um auf einem neuen Tabellenblatt automatische Seitenumbrüche zu bekommen, musst du entweder einmal kurz in die Druckansicht wechseln oder einen Druckbereich festlegen oder einen manuellen Seitenumbruch setzen oder ...

Mit den beiden Codezeilen
Code:

kannst du dazu kurz einen anderen Druckbereich setzen und gleich wieder aufheben.

Gruß Ingolf

 

Hallöchen,

das hat leider auch nix gebracht. Irgendwie weiß ich nicht mehr weiter.

Hab den Druckbereich vorher festgelegt, wie Du beschrieben hast. Der Fehler ist immernoch da :-(.

mfg Harkone

 

Hallo harkone,

noch eine mögliche Fehlerquelle: Solange unterhalb der letzten Zeile, die noch auf die Seite 1 passt nichts steht, gibt es noch keine horizontalen Seitenumbrüche. Die automatischen Seitenumbrüche gehen immer nur soweit, wie tatsächlich Daten in Zellen stehen. Könnte es daran liegen?

Gruß Ingolf

 

Das könnte das Problem sein, weil das Sheet bis dahin noch leer ist. Ich verstehe nur nicht, das ich in Excel im leeren Sheet schon einen Seitenumbruch sehe, welcher von Excel selbst erzeugt wird. Desen Position würde ich gerne auslesen.