Fehler 9 bei HPageBreak

Sub dd() Dim HP As HPageBreak ThisWorkbook.Worksheets("Tabelle1").Activate MsgBox ThisWorkbook.Worksheets("Tabelle1").HPageBreaks.Count For Each HP In ThisWorkbook.Worksheets("Tabelle1").HPageBreaks MsgBox HP.Location.Address Next HP End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub dd() Dim HP As HPageBreak Dim LoI As Long ThisWorkbook.Worksheets("Tabelle1").Activate MsgBox ThisWorkbook.Worksheets("Tabelle1").HPageBreaks.Count For LoI = 1 To ThisWorkbook.Worksheets("Tabelle1").HPageBreaks.Count 'For Each HP In ThisWorkbook.Worksheets("Tabelle1").HPageBreaks.Count MsgBox ThisWorkbook.Worksheets("Tabelle1").HPageBreaks(LoI).Location.Row - 1 Next End Sub

Sub ddd() Dim HP As HPageBreak Dim LoI As Long ThisWorkbook.Worksheets("Tabelle1").Activate MsgBox ThisWorkbook.Worksheets("Tabelle1").HPageBreaks.Count For LoI = 1 To ThisWorkbook.Worksheets("Tabelle1").HPageBreaks.Count 'For Each HP In ThisWorkbook.Worksheets("Tabelle1").HPageBreaks.Count MsgBox ThisWorkbook.Worksheets("Tabelle1").HPageBreaks(LoI).Location.Row - 1 Next End Sub

Sub tt() Dim LastEntry As Long, I As Long, Merker As Long Application.ScreenUpdating = False Merker = ActiveWindow.View ActiveWindow.View = xlPageBreakPreview With Worksheets("Tabelle1") LastEntry = .HPageBreaks.Count For I = 1 To LastEntry .Range("A" & .HPageBreaks(I).Location.Row).Insert Shift:=xlDown Next I End With ActiveWindow.View = Merker Application.ScreenUpdating = True End Sub

großes Dankeschön an dich und selbstverständlich genauso an Hajo.
Ich hebe es in meinem Artikel nicht erwähnt weil ich mir nicht ausreichen, 100%, sicher war, aber ich glaube zu wissen vor Jahren hat ein sehr sehr ähnliucher Code problemlos funktiert.
Ich habe eben nur den "Erkärungs"-Link überflogen da scheint es ja zu stehen warum es mal klappt und mal nicht. Ich muß mir mal alle Links genau durchlesen.
Ich teste nachher gleich den Code von Hajo, wenn der funktioniert wovon ich erstmal blind ausgehe ist ja so gesehen meine Anfrage erledigt.
Wie in meiner Beispielmappe sichtbar wenn man in Tabelle1 auf die Schaltfläche klickt soll dann eine UF erscheinen mit im Wesentlichen zwei Image (-Boxen). In ihnen soll dann links z.B. als Bild der Inhalt von Druckseite 1 des Balttes Tabelle1 erscheinen, rechts dann Druckseite 2.
Bei Klick auf den Spinbutton soll dann das gleiche mit Druckseite 3 und 4 geschehen.
Um jetzt in Vba herauszufinden welchen Adressbereich Druckseite 1, Druckseite 2 usw. umfastt dachte ich ich krieg das raus indem ich halt prüfe in welcher zeile/zelle die HPageBreaks sind.
Trage das bei Workbooks_Open ins Hilfsblatt "Hilfe" ein und kann dann bei Klick auf den Spinbutton
und dessen Value aus dieser Hilfstabelle schnell auslesen welchen Adressbereich Druckseite 28 umfasst.
Langer Rede kurzer Sinn, wenn ihr da einen anderen, schnelleren, eleganteren Ansatz seht, immer her damit :-)
Die losgelöste reine Aufgabenstellung lautet Code zu finden der
aufgrund der Parameter/Argument-Übergabe einer Zahl in eine Image(-box) das Bild der entsprechenden Druckseite reinstellt.
Gruß ^ Danke
Reinhard

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler 9 bei HPageBreak

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread