Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle CheckBoxes einer UserForm ansprechen

Gruppe

CheckBox

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