Gruppe
Dialog
Bereich
CheckBox
Thema
CheckBox mit Häkchen statt mit Kreuz
Problem
Wie kann ich in ein Tabellenblatt eine CheckBox mit Häkchen statt mit einem Kreuz integrieren?
Lösung
Den nachfolgenden Code in ein Standardmodul einfügen und dem selbst erstellten Shape-Objekt zuweisen.
StandardModule: basMain
Sub KreuzWeg()
ActiveSheet.Shapes(1).Ungroup
With ActiveSheet.TextBoxes(1)
If .Text = "X" Then
.Text = ""
Else
.Text = "X"
End If
End With
ActiveSheet.Shapes.Range(Array("Kreuz", "CheckBox")).Group
End Sub