Als checkbox niet is aangekruist - inhoud cel schonen

[mariken]

Het gaat om een bestelformulier.
Is het mogelijk als b.v. in C1 een checkbox eerst is aangekruist en in cel B1 het bijbehorende aantal is ingegeven, maar uiteindelijk de checkbox niet wordt aangekruist, de inhoud van cel B1 wordt geschoond. Ik weet dat ik niet kan uitleggen, dus heb ik een voorbeeld bijgevoegd.
Mariken
Bekijk bijlage 166419

 

[HSV]

Maak een checkbox uit de ActiveX-besturingselementen, en zet onderstaande code in moduleblad 1.

Private Sub CheckBox1_Click()
 If CheckBox1 = False Then Range("B1").ClearContents
End Sub

 

[Warme bakkertje]

Of behoudt je formulierCheckbox en wijs er onderstaande macro aan toe.

Sub Process_CheckBox()
    Set UCheck = ActiveSheet.CheckBoxes(Application.Caller)
    If Not UCheck Then ActiveSheet.Cells(UCheck.TopLeftCell.Row, UCheck.TopLeftCell.Column - 1).ClearContents
End Sub

Ps: Je kan deze macro aan meerdere Checkboxen toekennen omdat de code universeel is. Het enige waar je dan moet op letten is dat elke CB mooi uitgelijnd staan in elke cel, anders kan je wel eens een verassend resultaat krijgen.

 

[mariken]

Weer wat geleerd, super bedankt