Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

CheckBoxes in UserForms in eine Schleife einbinden

Gruppe

CheckBox

Problem

Wie kann ich über eine VBA-Schleife den ersten 5 CheckBoxes einer Serie von 8 Stück einen Wert zuweisen?

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

ClassModule: frmCheckBoxWerte

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 5
      Controls("CheckBox" & iCounter).Value = True
   Next iCounter
End Sub

StandardModule: basMain

Sub CallForm()
   frmCheckBoxWerte.Show
End Sub