Wie wandelt man TRUE/FALSE-Werte in Excel in Kontrollkästchen um?

Angenommen, Sie haben Zahlen in zwei Spalten aufgelistet. Ist die Zahl in der ersten Spalte größer als die in der zweiten, wird TRUE angezeigt – andernfalls FALSE, wie im folgenden Screenshot gezeigt. Jetzt können Sie die Formel ganz einfach so anpassen, dass TRUE oder FALSE in Excel durch Kontrollkästchen-Symbole ersetzt werden.

Ändern Sie die ursprüngliche Formel zu =IF(original_formula,"þ",„¨")

1. In diesem Fall verwende ich die Formel =B3>C3, um die Zahlen in zwei Spalten zu vergleichen. Daher passe ich die ursprüngliche Formel wie unten gezeigt an und ziehe anschließend den AutoAusfüll-Griff auf die anderen Zellen.

=IF(B3>C3,"þ",„¨")

2. Behalten Sie die markierten Formelzellen bei, klicken Sie mit der rechten Maustaste und wählen Sie Zellenformat festlegen aus dem Kontextmenü aus.

3. Wechseln Sie im Dialogfeld „Zellen formatieren“ zur Registerkarte Schriftart, wählen Sie Wingdings aus der Liste Schriftart aus und klicken Sie auf die Schaltfläche OK.

Nun sehen Sie, dass die Sonderzeichen in aktivierte und deaktivierte Kontrollkästchen umgewandelt wurden – siehe Screenshot:

In diesem Abschnitt stellen wir ein VBA-Makro vor, das mehrere TRUE- und FALSE-Werte in Excel automatisch in Kontrollkästchen-Steuerelemente umwandelt. So geht’s:

1. Wählen Sie die Zellen aus, die „TRUE“ und „FALSE“ enthalten und in Kontrollkästchen umgewandelt werden sollen.

2. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das neue Modulfenster ein.

VBA: TRUE und FALSE in Excel in Kontrollkästchen-Steuerelemente umwandeln

Sub ConvertTrueFalseToCheckbox()
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub

4. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA-Skript auszuführen.

Anschließend sehen Sie, dass alle ausgewählten TRUE- und FALSE-Werte automatisch in Kontrollkästchen umgewandelt wurden: TRUE erscheint als aktiviertes und FALSE als deaktiviertes Kontrollkästchen. Siehe Screenshot:

Falls Sie Kutools für Excel installiert haben, können Sie die Funktion Batch-Einfügen Kontrollkästchen nutzen, um mit einem Klick mehrere Kontrollkästchen-Steuerelemente gleichzeitig in Excel einzufügen.

Kutools für Excel – Bietet über 300 nützliche Tools für Excel! Testen Sie die Vollversion jetzt kostenlos für 60 Tage – ganz ohne Kreditkarte!Jetzt herunterladen

1. Wählen Sie die Zellen aus, die „TRUE“ und „FALSE“ enthalten und in Kontrollkästchen umgewandelt werden sollen, und klicken Sie auf Kutools > Einfügen > Batch-Einfügen: Kontrollkästchen.

2. In jede ausgewählte Zelle wird nun ein Kontrollkästchen-Steuerelement eingefügt. Sie können diese Kontrollkästchen jederzeit manuell aktivieren.