Checkbox waar niet waar

[mrnico]

Hallo ik ben opzoek naar het volgende

heb een checkbox en die wil ik bij de uncheckt de 1 cel laten kopiëren en bij checkt de andere
heb al het een en ander geprobeerd maar lukt mij niet

ik denk vast verkeerd maar kon ook niet echt wat vinden wat me opweg hielp

Bekijk bijlage Checkbox.xlsm

hoop dat 1 van jullie me wel kan helpen

Gr Mrnico

 

[edmoor]

Doe het eens zo:

Sub CheckBox1_Click()
    If ActiveSheet.Shapes("Selectievakje 1").OLEFormat.Object.Value = 1 Then
        Range("F3").Value = Range("C3").Value
    Else
        Range("F3").Value = Range("C4").Value
    End If
End Sub

Gebruik anders een ActiveX Checkbox.

 

[Cobbe]

Dat gaat toch ook zo:

 

[mrnico]

Bedankt voor de snelle hulp het is gelukt