Gruppe
Dialog
Problem
Die Optionsfelder in einer UserForm sollen über eine Schleife zurückgesetzt werden.
ClassModule: frmReset
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim cnt As Control
For Each cnt In Controls
If TypeName(cnt) = "OptionButton" Then
cnt.Value = False
End If
Next cnt
End Sub
StandardModule: Modul1
Sub DialogAufruf()
frmReset.Show
End Sub