Gruppe
Dialog
Problem
Wie kann ich alle CheckBoxes einer UserForm in eine For/NextSchleife einbinden?
ClassModule: frmCheckBox
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim cnt As Control
Dim iCounter As Integer
For Each cnt In frmCheckBox.Controls
If UCase(TypeName(cnt)) = "CHECKBOX" Then
iCounter = iCounter + 1
cnt.Caption = "MeineCheckbox " & iCounter
End If
Next cnt
End Sub
StandardModule: basMain
Sub CallForm()
frmCheckBox.Show
End Sub