Office: Viele OptionButtons zurücksetzen

User · 26. März 2008

Hallo zusammen,

ich möchte eine große Anzahl (ca. 50 von 75) zurücksetzten (Punkt löschen)leider klappt es nicht mit dem nachstehenden Code, was muß ich ändern?

Private Sub CommandButton1_Click()
Dim intCounter As Integer
For intCounter = 1 To 3
Controls("OptionButton" & intCounter).Value = False
Next intCounter
End Sub

Vielen Dank im Voraus

Viele Grüße
Eva

:)

rastrans · 28. März 2008

Hallo!

Wie lauten denn die Namen deiner OptionsButton?

Mit folgendem Code werdne alle vorhandenen OptionButton deaktiviert! Vorteil ist, das mir dann die Namen der Button ziemlich egal sind! *Smilie
Code:

Private Sub CommandButton1_Click()
Dim objButton As Control

For Each objButton In Controls
If TypeName(objButton) = "OptionButton" Then objButton.Value = False
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüße
rastrans

User · 28. März 2008

Hallo rastrans,

funktioniert bei mir nicht (Variable Controls nicht definiert)

und nun?

Gruß
Eva

rastrans · 28. März 2008

Wo sind denn deine Button? In einem Userform oder auf der Arbeitsmappe?

User · 28. März 2008

Hallo,

auf einem Tabellenblatt in einer Arbeitsmappe - keine Userform

Gruß
Eva

rastrans · 28. März 2008

Hallo Eva,

dann muss man etwas anders auf die Objekte zugreifen: Code:

Private Sub CommandButton1_Click()
Dim objButton As Object
Dim i As Integer

For Each objButton In Me.OLEObjects
If Left(objButton.Name, 12) = "OptionButton" Then
i = Val(Mid(objButton.Name, 13))
If i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 28. März 2008

Hallo rastrans,

funktioniert gut

danke und ein schönes Wochenende

Gruß
Eva

Office: Viele OptionButtons zurücksetzen

Viele OptionButtons zurücksetzen

Viele OptionButtons zurücksetzen

Viele OptionButtons zurücksetzen

Viele OptionButtons zurücksetzen - Similar Threads - OptionButtons zurücksetzen

OptionButtons sollen Zellen auswählen

OptionButtons dynamisch zur Laufzeit erzeugen

OptionButton mit Msg VBOKCancel

Prüfen aller OptionButton auf aktiv

Zellwert je nach Zustand Optionbutton

if then mit OptionButton und ComboBox

OptionButtons lässt mehr als nur eine Auswahl zu