VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

UserForm-Optionsfelder über eine Schleife zurücksetzen

Gruppe

Dialog

Bereich

OptionButton

Thema

UserForm-Optionsfelder über eine Schleife zurücksetzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und OptionButton