HERBERS Excel-Forum - die Dialoge

Thema: OptionButtons zurücksetzen

Home
Die Optionsfelder werden über eine Schleife zurückgesetzt. OptionButtons zurücksetzen
  • Prozedur: cmdOK_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: OptionButtons zurücksetzen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Eine Schleife über alle Steuerelemente der UserForm bilden
    • Wenn es sich um einen OptionButton handelt...
    • Dem Steuerelement den Wert FALSE zuweisen
  • Code:

    
    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