Gruppe
Dialog
Problem
Wie kann ich bei Anklicken einer Checkbox in einer Zelle der Arbeitsmappe eine Häkchen eintragen bzw. löschen lassen?
StandardModule: basMain
Sub CheckBox1_Click()
With Range("A1")
.Font.Name = "Wingdings"
If ActiveSheet.CheckBoxes(1).Value = xlOn Then
.Value = "ü"
Else
.Value = ""
End If
End With
End Sub