Gruppe
Dialog
Problem
Wie kann ich in die Nebenzelle einer CheckBox Werte eintragen lassen, wenn die CheckBox aktiviert wird?
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