VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle CheckBoxes einer UserForm ansprechen

Gruppe

Dialog

Bereich

CheckBox

Thema

Alle CheckBoxes einer UserForm ansprechen

Problem

Wie kann ich alle CheckBoxes einer UserForm in eine For/NextSchleife einbinden?

Lösung

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




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

    


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