OptionButton auf Tabelle

29/09/2009 - 12:05 von Mike Berger | Report spam
Hallo zusammen,

ich habe ein kleines Problem.

Ich habe auf der Tabelle1 ca. 40 OptionsButtons.

Die möchte ich nun alle mit Value = False setzen.

Auf einer UserForm kann ich mit "for each object in me.controls" dies
per Schleife machen. Aber wie kann ich dies auf der Tabelle1
vornehmen?

Vielen Dank.

Mike
 

Lesen sie die antworten

#1 Wolfgang Habernoll
29/09/2009 - 12:33 | Warnen spam
Hallo Mike

"Mike Berger" schrieb im Newsbeitrag
news:
Hallo zusammen,

ich habe ein kleines Problem.

Ich habe auf der Tabelle1 ca. 40 OptionsButtons.

Die möchte ich nun alle mit Value = False setzen.

Auf einer UserForm kann ich mit "for each object in me.controls" dies
per Schleife machen. Aber wie kann ich dies auf der Tabelle1
vornehmen?



das kannst du auch auf der Tabelle, versuche es mal damit

Sub OptButtonReset()
Dim objI As Object
For Each objI In ActiveSheet.OLEObjects
If objI.progID = "Forms.OptionButton.1" Then objI.Object.Value = False
Next objI
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen