Macro voor invoegen pagina-einde gezocht

[Dallas10]

Beste mede-forumleden,

Ik heb een txt-file dat ik kopieer en in excel plak.
Dit txt-file bestaat uit honderden regels en er komen ook paginaheaders in voor met daarin dan de tekst " ... ..... pagina xx".
(in plaats van de xx staan dan uiteraard cijfers: 1, 2, 3, .., .., 45, 46, etc).
Omdat ik dit bestand nu vanuit excel wil gaan afdrukken (pdf) is het wel zo mooi om elke pagina ook op een nieuwe pagina te laten beginnen.
Ik ben daarom op zoek naar een macro die zoekt naar de tekst "pagina" en vervolgens een pagina-einde invoegt vóór de regel met pagina erin.
Wie kan mij daarin helpen?
Zie ook voorbeeld bestand.

Edit: uiteraard is het niet nodig om voor '.... pagina 1' een pagina-einde in te voegen.

Bij voorbaat dank,

 

[Warme bakkertje]

Dallas, probeer volgende eens uit op een kopie van je bestand

Sub break()
With Sheets("Sheet1").Cells
On Error Resume Next
    Set c = (.Find(What:="dallas pagina", After:=[A2], LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext))
    If Not c Is Nothing Then
        firstaddress = c.Address
         Do
            ActiveSheet.HPageBreaks.Add Before:=c
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
  End With
End Sub

Mvg

Rudi

 

[Dallas10]

Bedankt voor je antwoord, warme bakker.

Ik zal ermee aan de slag gaan en het uitproberen.
Omdat ik m'n bijgevoegde bestand versimpeld heb weergegeven, zal ik voor het echte file mogelijk nog wat moeten aanpassen, maar met deze code als basis kan ik nu oefenen en vooral ook leren.

Edit:
Op het oefenbestand werkt het perfect !!!
Nu nog aanpassen voor het echte werk, maar dat gaat wel lukken denk ik

Ik ga de vraag aanmerken als opgelost.

Nogmaals bedankt.