Check box excel

[PETER1046]

Ik heb het volgende probleem:

Ik wil een "check box" in een excel sheet zichtbaar of onzichtbaar
maken door in een cel de waarde 1 of 0 te plaatsen.

Echter deze 1 of 0 is het resultaat van de IF vergelijking.

Ik hoop dat iemand een simpele oplossing weet.

 

[HSV]

Bv.
Bij elk ander getal dan 1 in cel A1 is het verborgen.

Private Sub Worksheet_Calculate()
 checkbox1.visible = [a1] = 1
End Sub

 

[PETER1046]

beste HSV,

Bedankt voor het meedenken echter dit werkt niet.

Het probleem is dat de 1 of 0 in de cel de uitkomst
Is van een formule.

Dus er is blijkbaar een verschil tussen een waarde
met de hand in een cel zetten, en als de waarde
uit een IF formule in een cel wordt gezet.

Groet PL

 

[VenA]

Waar heb je de code toegepast? Deze hoort thuis in de bladmodule.

Wijzig iets in C1 en je zal zien dat het prima werkt.

 

[PETER1046]

Bedankt voor de input,

Echter het werkte nog steeds niet,
ik denk dat het aan de diverse versies van Excel ligt.

Heb inmiddels wel een oplossing gevonden, zie voorbeeld:


Private Sub Worksheet_Calculate()

ActiveSheet.Shapes("Check Box 1").Visible = [a1] = 1

End Sub


Hierbij is mijn probleem opgelost, bedankt.

Groet, PL

 

[HSV]

Het ligt niet aan de versie van Excel.
Je hebt namelijk een checkbox van de formulierbesturingselementen ipv van de activeX-besturingselementen op je werkblad staan.

 

[jkpieterse]

De elementen van de formulierbesturingselementen zijn sowieso betrouwbaarder dan de ActiveX elementen.

 

[HSV]

Kun je dat toelichten Jkp?
Ik werk nl. liever met de ActiveX.

 

[jkpieterse]

Met ActiveX heb je problemen zoals het veranderen van afmetingen en plaats en soms het geheel niet meer werken (denk aan de update van begin dit jaar). Daar heb je met Forms elementen zelden last van.