Loop durch Checkboxen funktioniert nicht
27.02.2017 15:25:46
Markus
ich bin VBA-Anfänger und möchte gerne per Klick auf einen Button in einer Userform eine Liste der Checkboxen in der Userform erstellen, die gerade angeklickt sind - ohne die Checkboxen mit dem Titel " Select All".
Bisher habe ich folgenden Code - hier werden mir jedoch immer alle Checkboxen aufgelistet, d.h. ich mache vermutlich etwas falsch mit den If-Statements:
Private Sub Btn2_Click()
Dim varCheckboxList As String
varCheckboxList = "The following checkboxes have been selected:" & vbLf
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "CheckBox" And ctrl.Caption " Select All" Then
If ctrl.Value = True Then
varCheckboxList = varCheckboxList & vbLf & ctrl.Caption
End If
End If
Next ctrl
MsgBox (varCheckboxList)
End Sub
Vielen Dank im Voraus und VG,
Markus
Anzeige