In einem Excel 5/95-Dialogfeld ist es möglich, den Wert / Inhalt einer Sammlung von Steuerelementen zu ändern, indem die Steuerelemente in der Sammlung durchlaufen werden, z. so: Für jedes cb In dlg.CheckBoxes.

In Excel 97 oder höher gruppiert das UserForm-Objekt die Steuerelemente nicht auf die gleiche Weise.

Im Folgenden finden Sie einige Beispielmakros, die zeigen, wie Sie den Wert / Inhalt mehrerer UserForm-Steuerelemente ändern können:

Sub ResetAllCheckBoxesInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "CheckBox" Then

ctrl.Value = False

End If

Next ctrl

End Sub

Sub ResetAllOptionButtonsInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "OptionButton" Then

ctrl.Value = False

End If

Next ctrl

End Sub

Sub ResetAllTextBoxesInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "TextBox" Then

ctrl.Text = ""

End If

Next ctrl

End Sub