Hoofdstuk op nieuwe pagina laten beginnen

[Danielle22]

Hallo allemaal,

Ik heb een sheet met allemaal verschillende hoofdstukken en met vele verwijzingen erin. Is het ook mogelijk als er in kolom A de tekst "beginnen op nieuwe pagina" bij een hoofdstuk staat dat deze dan op een nieuwe pagina begint? Het is dan belangrijk dat er dan net zoveel lege regels ingevoegd worden dat de betreffende hoofdstuk op een nieuwe pagina/pagebreak begint.

Zoi ook mijn voorbeeld.

Is dit ook mogelijk met een macro o.i.d?

Alvast heel erg bedankt voor de eventuele reacties.

Groetjes,

Danielle

Bekijk bijlage hoofdstukken op nieuwe pagina.xlsx

 

[HSV]

Zoiets Danielle?

Sub hsv()
 Dim c As Variant, firstaddress As Variant
 With Sheets("Blad1")
  .Cells.SpecialCells(12).PageBreak = xlNone
 Set c = .Columns(1).Find("Beginnen op nieuwe pagina")
     If Not c Is Nothing Then
           firstaddress = c.Address
    Do
       .HPageBreaks.Add c.Offset(1)
      Set c = .Columns(1).FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstaddress
  End If
 End With
End Sub

 

[Danielle22]

Hoi Harry,

Heel erg bedankt :thumb:

Hier kom ik zeker verder mee, bedankt!

Groetjes,

Danielle