Werkblad splitsen en blokkeren via VBA

[grietsenwijma]

Goedenavond,

Ik ben bezig met een code die onder meer een werkblad splitst en vervolgens de titels blokkeert.
Dit deel van de code ziet er als volgt uit:

    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 121
    End With
    ActiveWindow.FreezePanes = True
End Sub

Werkt op zich goed, maar zodra er een regel tussen- of tussenuit gaat ga ik hangen want hij blijft naar regel 121 gaan.

Ik dacht de kant uit om de cel A121 in het naamvak een eigen naam te geven en vervolgens de splitsing hieraan te knopen.
Maar dat ga ik met deze code niet redden.

Wie heeft de oplossing hiervoor wel eens zien langskomen?

Alvast dank!

 

[JEC.]

Dus je wilt dat het telkens op de 121 blijft staan? Je kunt het achter een worksheet_activate zetten, dus achter je betreffende tabblad.
Elke keer als je dit tabblad opent zal het weer herstellen.

Private Sub Worksheet_Activate()
 With ActiveWindow
  .SplitColumn = 0
  .SplitRow = 121
  .FreezePanes = True
 End With
End Sub

 

[HSV]

Geef cel A121 een naam.

With ActiveWindow
   .SplitRow = Range("naam").Row
   .FreezePanes = True
End With

 

[grietsenwijma]

Geef cel A121 een naam.

With ActiveWindow
   .SplitRow = Range("naam").Row
   .FreezePanes = True
End With

...Werkt inmiddels al een poosje, nu ontdek ik dat de "split"steeds net een rij te laag komt.
Bijvoorbeeld als mijn cel met "naam" A121 is
Komt de splitsing tussen rij 122 en rij 123

Hoe zou dat komen en wat doe ik er aan?

Bedankt!

 

[cow18]

en het is niet zo dat "Naam" ondertussen 1 rij opgeschoven is ?

 

[grietsenwijma]

en het is niet zo dat "Naam" ondertussen 1 rij opgeschoven is ?

Nee, dat zou te simpel zijn.

Hij legt de split steeds net een rij te laag en ik haal niet uit die code waar dat door zou kunnen komen.

 

[cow18]

het is niet zo dat er ergens in die rij 121 van die samengevoegde cellen staan, die 2 rijen diep zijn ?
Anders kan ik niets bedenken en zou je het zo kunnen oplossen en spelen met die "2"

   .SplitRow = Range("naam").Offset([COLOR="#FF0000"]-2[/COLOR]).Row

.

 

[HSV]

Dan zit de split aan de onderkant van cel A121.
Het simpelst lijkt mij om de naam te veranderen naar A120 toch?

 

[cow18]

ik gok op iets geks in die rij, die een normaal splitsen hindert.
Maar dan moet je de echte situatie natuurlijk kunnen zien.
Als je het handmatig op die rij zou doen, lukt het dan wel ?

Fout ideetje, ik heb het zelf even met een samengevoegde cel geprobeerd en het werkte.
Dus ik pas.

 

[HSV]

Zonder bestand is het ook maar gokken.

Een ideetje doordat FreezePanes vast staat.

Naam = A119.

Eerst losmaken → terug naar A1 → Splitrow → ga naar [naam] → vast zetten.

Sub hsv()
With ActiveWindow
 .FreezePanes = False
    Application.Goto [a1], True
 .SplitRow = Range("naam").Row
    Application.Goto [naam]
 .FreezePanes = True
End With
End Sub

Als het niet werkt stop ik met gokken zonder bestand van Ts.
Werkte al een tijdje maar ook geen reactie.

 

[grietsenwijma]

het is niet zo dat er ergens in die rij 121 van die samengevoegde cellen staan, die 2 rijen diep zijn ?
Anders kan ik niets bedenken en zou je het zo kunnen oplossen en spelen met die "2"

   .SplitRow = Range("naam").Offset([COLOR="#FF0000"]-2[/COLOR]).Row

.

 

[grietsenwijma]

Ik geloof dat met mij nog niemand snapt hoe dit probleem kan bestaan maar dit is wel een zeer simpele workaround.
Zo simpel dat het een oplossing mag heten
Bedankt!

(maar wonderlijk blijft het!)