VBA CheckBoxen getrennt auswerten
21.01.2020 15:07:33
Bernd
ich habe ein Problem mit VBA in Excel und versuche es einmal zu schildern:
In meinem Dokument befinden sich mehrere Checkboxen, welche in zwei Kategorien aufgeteilt sind.
Mit der Auswertung aller Checkboxen komme ich zurecht und bekomme das richtige Ergebnis.
Mein Problem ist nun, dass die Checkboxen getrennt von einander, eben in den zwei Kategorien ausgewertet werden sollen.
Z.B. 5 Checkboxen in der Kategorie "Baum" und 7 Checkboxen in der Kategorie "Blume"
jetzt soll in einer Tabelle in der entsprechenden Zelle für "Bäume" alle aktivierten Checkboxen von Bäumen ausgegeben werden und die Checkboxen für Blumen in der Zelle für Blumen.
Ich füge mal meinen bisherigen Code ein, welcher alle Checkboxen auswertet und in eine Zelle schreibt.
Option Explicit
Sub Knopf()
Dim c As OLEObject
Dim sAuswahl As String
sAuswahl = ""
For Each c In ActiveSheet.OLEObjects
If TypeName(c.Object) = "CheckBox" Then
If c.Object.Value = True Then
If sAuswahl = "" Then
sAuswahl = c.Object.Caption
Else
sAuswahl = sAuswahl & ", " & c.Object.Caption
End If
End If
End If
Next
Range("A96") = sAuswahl
End Sub