Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

CheckBox mit Häkchen statt mit Kreuz

Gruppe

CheckBox

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