VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

10 UserForm-CheckBoxes als Serie aktivieren

Gruppe

Dialog

Bereich

CheckBox

Thema

10 UserForm-CheckBoxes als Serie aktivieren

Problem

Wie kann ich 20 UserForm-TextBoxes auf Schaltflächendruck aktivieren bzw. deaktivieren?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox