OptionButton mit Index über Variable ansprechen

Computer: Software & Programmierung Office Software
#1

Hallo Experten,

uff… ich steh auf’m Schlauch:

Habe ein Tabellenblatt mit 16 OptionButtons (jeweils zwei sind über die „GroupName“-Eigenschaft gruppiert - nur so zur Info, denn das spielt keine Rolle bei meinem Problem).

Jetzt möchte ich den gesetzten Wert (true/false) jedes OptionButtons in einer Schleife per VBA abfragen.
Kennt jemand die korrekte Syntax wenn man das Steuerelement statt mit OptionButton1, OptionButton2 usw., mit OptionButton & Variable ansprechen will???

Ach ja, die OptionButtons sind nicht Teil einer UserForm, sondern stehen direkt auf dem Tabellenblatt.

Vielen Dank im Voraus
Gundel

#2

Jetzt möchte ich den gesetzten Wert (true/false) jedes
OptionButtons in einer Schleife per VBA abfragen.
Kennt jemand die korrekte Syntax wenn man das Steuerelement
statt mit OptionButton1, OptionButton2 usw., mit OptionButton
& Variable ansprechen will???
Ach ja, die OptionButtons sind nicht Teil einer UserForm,
sondern stehen direkt auf dem Tabellenblatt.

Hi Gundel,
ungetestet:

Option Explicit

Sub tt()
Dim OB
For Each OB In ActiveSheet.Shapes
 If OB.Name Like "Option\*" Then
 MsgBox OB.Name & " ist" & OB.Value
 End If
Next OB
End Sub

Gruß
Reinhard

#3

Sub tt()
Dim OB
For Each OB In ActiveSheet.Shapes
If OB.Name Like „Option*“ Then
MsgBox OB.Name & " ist" & OB.Value
End If
Next OB
End Sub

Hi Reinhard,

hab’s gerade ausprobiert, aber leider erscheint bei Zeile:
„MsgBox OB.Name & " ist“ & OB.Value"
folgende Fehlermeldung:

„Laufzeitfehler 438:
Objekt unterstützt diese Eigenschaft oder Methode nicht“

Falls du noch 'ne Idee hast, bin ich ganz Ohr (bzw. Auge), ansonsten trotzdem Danke.

Gruß
Gundel