Gruppe
Dialog
Problem
Wie kann ich 20 UserForm-TextBoxes auf Schaltflächendruck aktivieren bzw. deaktivieren?
ClassModule: frmCheckBoxes
Private Sub cmdFalse_Click()
Call Switch(False)
End Sub
Private Sub cmdTrue_Click()
Call Switch(True)
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 10
Controls("CheckBox" & iCounter).Caption = "CheckBox" & iCounter
Next iCounter
End Sub
Sub Switch(bln As Boolean)
Dim iCounter As Integer
For iCounter = 1 To 10
Controls("CheckBox" & iCounter).Value = bln
Next iCounter
End Sub
StandardModule: Modul1
Sub CallForm()
frmCheckBoxes.Show
End Sub