Excel VBA: Seitenumbruch bei bestimmtem Wert

[little-key]

Hallo an Alle,
hier kurz und bündig mein Problem:

Ich habe eine Tabelle mit ca. 900 Zeilen.
In Spalte D gibt es in unregelmäßige Abständen (mal nach 5 Zeilen, mal nach 60 Zeilen) einen Feldeintrag: -99.
Diese "-99" sagt mir, ab hier müsste eine neue Seite beginnen.
Wie lautet der Makroeintrag dazu?
Was noch wichtig wäre: Nachdem die Seitenumbüche dann vollzogen wären, wird die Spalte D gelöscht. D. h. der Bezug -99 existiert dann nicht mehr, die Seitenumbüche müssen aber erhalten bleiben.
Hoffe, habe mich glücklich ausgedrückt.
Benötige dringend Hilfe dazu.

Vielen Dank im voraus.

 

[Mr. Snoot]

Hü,

sollte so klappen:

Sub seitenumbruch()

Dim i As Integer
Dim umbruch As Integer
Dim wks As Worksheet

i = 0
umbruch = 1
Set wks = Worksheets("Tabelle1")

For i = 1 To 26 [COLOR="Green"]% hier für 26 deine letzte Zeile in der Tabelle eintragen[/COLOR]
    If Range("D" & i).Value = -99 Then
        wks.Rows(i + 1).PageBreak = xlPageBreakManual [COLOR="Green"]% fügt Zeilenumbruch unter aktueller Zeile (= i) ein, daher +1[/COLOR]
    End If
Next i

wks.Range("D:D").EntireColumn.Delete [COLOR="Green"]% löscht Spalte D komplett[/COLOR]

End Sub

Spalte D soll komplett weg (wie im Code) oder nur die -99er Werte?