VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Auslesen des ausgewählten Optionsfeldes in einer UserForm

Gruppe

Dialog

Bereich

OptionButton

Thema

Auslesen des ausgewählten Optionsfeldes in einer UserForm

Problem

Wie kann ich feststellen, welches Optionsfeld in einer UserForm aktiviert wurde?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




ClassModule: frmAuslesen

Private Sub cmdAuslesen_Click()
   Dim cnt As Control
   Dim iCounter As Integer
   For Each cnt In Controls
      If TypeName(cnt) = "OptionButton" Then
         iCounter = iCounter + 1
         If cnt.Value = True Then Exit For
      End If
   Next cnt
   MsgBox "Optionsfeld Nr. " & iCounter & _
      " wurde ausgewählt!"
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmAuslesen.Show
End Sub

    


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