OptionButtons auf false setzen

[Chris169]

Hallo Leute,

bin neu hier und komme gleich mit einem größeres Problem in der Hoffnung das mir jemand hier helfen kann. Ich habe ein Fragebogen erstellt mit sogenanten RadioButtons. Je nachdem wie die Antworten ausfahlen wird etwas ausgegeben. Ich möchte jetzt ein Button einbauen der das ganze Fragebogen reseten soll also alle RadioButtons auf false setzt. Explizit brauche ich eine Funktion die über die OptionButtons iteriert und alle die auf true sind auf false setzt.

Ich habe es mal damit versucht, klappt aber nicht:


Public Sub ClearButtons()

Dim x As OptionButton
For Each x In Worksheet(Tabelle1)

If x.Value = True Then
x.Value = False

End If

Next

End Sub


Kann mir jamand bitte bei dieser Sache helfen?

Danke im Voraus

Gruß

Chris

 

[spirit]

Hallo

Schaue doch einfach zu das deine Option Controls eine fortlaufenden Index hat.
Dann kannst du mit einer einfachen:

Dim z as Integer
For z = start to maxindex
       Option(z).enabled = false
next

alle OPtion Controls disablen

Schau mal ob es dir hilft

 

[Chris169]

Hi, danke für die schnelle Antwort!
Ich habe es mit dem folgenden Code probiert:


Private Sub clearButtons()

Dim z As Integer
For z = 1 To 6
OptionButton(z).Value = False
Next

End Sub

bekommen aber die Fehlermeldung: Sub oder Funktion nicht definiert

 

[benhaze]

was wird den in der IDE angekreidet, als er meinte: Sub oder Funktion nicht definiert?

 

[Zvoni]

Wahrscheinlich hat er nur den Code kopiert, aber die Optionbuttons nicht als Control-Array angelegt.