Mit folgendem Code erreiche ich das bei ActiverChekbox ein X in die Zelle C7 geschrieben wird und bei inaktiver Checkbox die Cellec7 leer bleibt.
soweit so gut!
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Tabelle1.Range("C7") = "X"
End If
If CheckBox1.Value = False Then
Tabelle1.Range("C7") = ""
End If
End Sub
Nun möchte ich gern die Zelle deaktivieren ausgrauen und nicht mehr beschreibbare haben, wenn die Checkbox aktiv ist.
Ich habe folgendes probiert, funktioniert aber leider nicht.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Tabelle1.Range("C7").Enabled = False
End If
If CheckBox1.Value = False Then
Tabelle1.Range("C7").Enabled = True
End If
End Sub
Kann mir jemand helfen?
Gruß Lisa