Titelblokkering variabel, zoeken naar Naam

[Peter2016]

Hallo,

Ik heb een bestand waar ik dmv een macro de titelblokkering wil aanzetten.
In kolom "B" staat variabel steeds op een andere regel de koptekst "Klantnaam".
Ik zou de titelblokkering willen activeren als de naam "Klantnaam is gevonden" + 1 regel naar beneden.

Vb. Klantnaam wordt gevonden in kolom B op regel 21, dan moet regel 22 t/m 1 worden geblokkeerd

Alvast bedankt

 

[SjonR]

is dit wat je zoekt?

Sub Peter()
 R = ActiveSheet.Range("B:B").Find("Klantnaam").Row
 Cells(R + 2, 1).Select
 ActiveWindow.FreezePanes = True
End Sub

Of :

Sub Peter()
 R = ActiveSheet.Range("B:B").Find("Klantnaam").Row

With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    .SplitColumn = 0
    .SplitRow = R + 1
    .FreezePanes = True
End With
End Sub

 

[Peter2016]

Hallo SjonR, Top, precies wat ik bedoelde, Hartelijk dank voor je hulp,

Groet
Peter

 

[SjonR]

Graag gedaan :thumb: