macro til kontrolelement

If CheckBox1.Value = False Then Cells(5, 2).Value = 0
If CheckBox1.Value = True Then Cells(5, 2).Value = 1

Kan nok gøres lidt enklere

Private Sub CheckBox1_Click()

If CheckBox1 Then
    Cells(2, 5).Value = 1
Else
    Cells(2, 5).Value = 0
End If

End Sub


Hvis du hellere vil skrive celle-adressen direkte (for at undgå evt. fejl), så kan du i stedet bruge denne her:

Private Sub CheckBox1_Click()

If CheckBox1 Then
    Range("E2").Value = 1
Else
    Range("E2").Value = 0
End If

End Sub

Vælg designmode (trekantet linial) på kotrolelementmenuen.
Klik på dit kontrolelement og vælg Properties (egenskaber). Under LinkedCell skriver du E2.
Gå ud af designmode igen.
Nu vil E2 blive sat til SAND (1) hvis boksen er checked eller FALSK (0) hvis den ikke er.
Hvis du ganger SAND med 1 bliver resultatet 1 og hvis du ganger FALSK med 1 giver det 0.

tak alle tre, valgte bak, svar pls

ok :-)