✔ Mehrere Option Buttons abfragen

[tesarolle]

Hallo Leute,

habe mehree Option Buttons und möchte eine plausi einbauen die mir jeden Option Button prüft und wenn KEINER auf TRUE steht eine Meldung ausgibt. Wie kann ich das in einer IF_Anweisung FOrmulieren?

Gruß
Thomas.

 

[knop]

Hi,

folgender Code ist bestimmt was für dich .

Sub suBT_click()
    Dim x As Integetr
    For x = 0 to Me.Controls.Count
        If Not Me.Controls(x).Enabled Then MsgBox Me.Controls(x).Caption
    Next x
End Sub

Ich habe es leider nicht ausprobiert, müsste aber funktionieren

Gruß
Alex

 

[knop]

hier ist ein Link, wo es noch besser beschrieben wird

http://www.vbarchiv.net/archiv/tipp_435.html

 

[Shakie]

@knop: Du gibst doch für jeden Option-Button eine Msg-Box aus, wenn ENABLED=False.
Ich nehme mal an, dass tesarolle eher die Eigenschaft "Value" überprüfen will und nur eine Msg-Box haben will.
Hier habe ich also nun meinen Vorschlag, vorrausgesetzt das die Option-Buttons ein Steuerelemente-Array sind:

Private Sub Prüfen()
    Dim intZähler As Integer
    Dim blnMindEinerAktiv As Boolean
    
    For intZähler = Me.Option1.LBound To Me.Option1.UBound
        blnMindEinerAktiv = Me.Option1(intZähler).Value Or blnMindEinerAktiv
    Next
    
    If Not blnMindEinerAktiv Then MsgBox "Kein Option-Button angeklickt!"
End Sub

 

[knop]

@Shakie: stimmt. Es sind doch diese wo nur einer gewählt werden kann (die runden). Da habe ich was verwechselt. Ich bin von Steuerelementen ausgegangen, die zu Laufzeit deaktiviert werden. Sorry, ich nehme mein Bsp. zurück .

Gruß
Alex