Gruppe
Dialog
Bereich
OptionButton
Thema
Werte von OptionButtons aus 2 Gruppen auslesen
Problem
Die OptionButtons sind zwei Gruppen zugeordnet. Es soll ermittelt werden, welches Optionsfeld in GoupB aktiviert ist
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Sub IfSelected()
Dim oOle As OLEObject
Dim oOpt As msforms.OptionButton
For Each oOle In OLEObjects
If TypeName(oOle.Object) = "OptionButton" Then
Set oOpt = oOle.Object
If oOpt And oOpt.GroupName = "GroupB" Then
MsgBox "In GroupB ist " & oOpt.Caption & " aktiviert"
End If
End If
Next oOle
End Sub