Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-Optionsfelder über eine Schleife zurücksetzen

Gruppe

OptionButton

Problem

Die Optionsfelder in einer UserForm sollen über eine Schleife zurückgesetzt werden.

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

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