VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte von OptionButtons aus 2 Gruppen auslesen

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

    


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