Gruppe
Dialog
Bereich
CheckBox
Thema
Werte in Zelle eintragen, wenn CheckBox aktiviert
Problem
Wie kann ich in die Nebenzelle einer CheckBox Werte eintragen lassen, wenn die CheckBox aktiviert wird?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub CheckBox1_Click()
ActiveCell.Select
With Range("A2")
If CheckBox1.Value = True Then
.Value = 2.5
Else
.Value = ""
End If
End With
End Sub