Hallo,

ich habe folgendes Problem: ich habe eine extrem lange Excel Tabelle die nach WAHR und FALSCH sortiert wird.

Hier habe ich mit folgendem Code feste Seitenumbrüche gesetzt damit das Layout in jeder Excel Version immer gleich bleibt:

------------------------------------

    Set ActiveSheet.HPageBreaks(1).Location = Range("A45")
    Set ActiveSheet.HPageBreaks(2).Location = Range("A71")
    Set ActiveSheet.HPageBreaks(3).Location = Range("A101")
    Set ActiveSheet.HPageBreaks(4).Location = Range("A133")
.....   

    Set ActiveSheet.HPageBreaks(207).Location = Range("A6470")
    Set ActiveSheet.HPageBreaks(208).Location = Range("A6498")
    Set ActiveSheet.HPageBreaks(209).Location = Range("A6527")
    Set ActiveSheet.HPageBreaks(210).Location = Range("A6551")

------------------------------------

Bis hierhin funktioniert alles so wie ich es möchte.

Wenn ich mein Formular jetzt aber ausdrucken möchte, habe ich zum Beispiel 100 Seiten. Jedoch werden sollten eigentlich nur Seite 1, 3, 23, 24 gedruckt werden.

Bei  der nächsten Sortierung sind es zum Beispiel die Seiten 2, 5, 25, 90, 200 die gedruckt werden sollen.

Mit folgendem Code lösche ich die aussortierten Bereiche und schiebe alles so zusammen, dass die verschiedenen Bereiche (also zum Beispiel 1, 3, 23, und 24) direkt hintereinander gedruckt werden. Das Problem ist aber, dass es mir meine Umbrüche komplett verschiebt und diese wieder manuell angepasst werden müssten. Das möchte ich aber nicht. Hier der Code:

------------------------------------

   Dim i As Long
    
   On Error Resume Next
   For i = ActiveSheet.HPageBreaks.Count To 1 Step -1
      ActiveSheet.HPageBreaks(i).Delete
   Next

------------------------------------

Könnte mir hier jemand bitte weiterhelfen?

Ich nutze Excel 2010

Grüße und Danke schonmal

Paul