Gruppe
Dialog
Problem
Wie kann ich in ein Tabellenblatt eine CheckBox mit Häkchen statt mit einem Kreuz integrieren?
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