VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

CheckBox mit Häkchen statt mit Kreuz

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox