Via checkbox in Excel een andere cell check of uncheck waarde geven.

[Nubje2008]

Hallo allemaal,

Ik heb een vraagje over checkboxen in Excel. Ik wil graag een checkbox maken in bijv. cell A1, waneer deze dan wordt aangevinkt dan zegt cel A2 "check". En natuurlijk wanneer ik het vinkje uit de checkbox haal dan zegt cel A2 "niet gechecked".

Ik geloof dat dit via VBA script moet ik heb al iets geprobeerd in de trend van:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Cell(A2).Show
"Good"
End If
If CheckBox1.Value = False Then
Cell(A2).Show
"Not Good"
End If

End Sub

Maar ik heb niet zo veel verstand van VBA script zoals is te zien.

Zou iemand mij hiermee kunnen helpen? Alvast bedankt.

Groetjes,

Nubje2008

 

[Ginger]

Nubje2008, Als je uit de Forms (formulieren) toolbox je Checkbox haalt, kan je heel eenvoudig via de properties (eigenschappen) een cel aan de checkbox verbinden (met TRUE en FALSE). Je hebt daar dus helemaal geen VBA voor nodig.

Groet, Leo

 

[etri]

Probeer deze code eens

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Range("A2").Value = "Aangevinkt!"
    Else
        Range("A2").Value = "Niet aangevinkt..."
    End If
End Sub

Succes! :thumb:

 

[Nubje2008]

@Ginger & Etri

Allebei bedankt voor de hulp. De oplossing van Etri werkt super. Ik heb zelf een kleine voorkeur voor de code omdat deze flexibeler werkt dan het linken van cellen.

Bij deze is mijn probleem opgelost. :thumb: