Checkbox unvisible

[hdekok]

Met behulp van een userform worden kolommen in een werkblad gevuld. Als een kolom een bepaalde waarde bereikt wordt de bijbehorende checkbox verborgen en kan die keuze niet meer worden gemaakt.

Dit wordt d.m.v. onderstaande code bereikt:

Private Sub WKND1ZAT_change()
If Worksheets("STREEPJESDAGEN").Range("B104") >= 3 Then
Me.WKND1ZAT.Visible = False
End If
End Sub

Zolang het userform actief blijft gaat alles goed. Wordt echter het userform afgesloten en opnieuw geopend, dan is de checkbox weer zichtbaar.

Het is mijn wens dat de checkbox, zolang de waarde van de kolom een bepaalde waarde overstijgt, verborgen blijft en pas weer zichtbaar wordt als de waarde van de kolom beneden een vooraf bepaalde waarde komt.

Mijn bestand is te groot om te worden verstuurd.

Heeft iemand een suggestie hoe ik e.e.a. kan bewerkstelligen?

M.vr.gr.

Hendrik de Kok

 

[leofact]

If Worksheets("STREEPJESDAGEN").Range("B104") >= 3 Then
Me.WKND1ZAT.Visible = False

Deze regel kun je in het Initialize event zetten van het userform.

Private Sub UserForm_Initialize()

Dan wordt bij het openen van het form de juiste waarde ingesteld.

mvg leo

 

[hdekok]

Allereerst mijn dank voor uw snelle reactie.

Uw suggestie lost mijn 'probleem' gedeeltelijk op.

In de 'oude' situatie verdween de checkbox zodra de kritische waarde was bereikt (3) en bleef de checkbox verborgen.

Nu ik uw raad heb opgevolgd, verdwijnt de checkbox niet meer bij het bereiken van de kritische waarde. Wordt het userform afgesloten en opnieuw geopend dan wordt de checkbox wel verborgen.

Heeft u wellicht nog een suggestie?

M.vr.gr.

Hendrik de Kok

 

[hdekok]

Sorry, ik heb zelf een foutje gemaakt door de regel in het Initialize event te zetten en daarna de private sub change te deleten. Die moet natuurlijk blijven bestaan!

Probleem opgelost!

Hartelijk dank voor uw hulp!

M.vr.gr.

Hendrik de Kok

 

[leofact]

En beide gecombineerd, dat bedoelde ik eigenlijk.

Edit, oh ik zie nu dat je er al uit was. mooi

Mvg Leo