✔ Optionswerte einzeln überprüfen

[tesarolle]

Habe 4 Option Buttons die alle überprüft werden sollen ob ein Button den Wert "1" enthält.

Ist dies nicht der Fall soll eine Meldung ausgegeben werden.

Wie ist in diesen Fall die IF Then Else Anweisung zu formulieren? Eine SCHleife soll nicht verwendet werden da ich 38 Option BUttons mit unterschiedlichen Bezeichnungen und Namen habe.


SB01Zähler.VALUE
SB02Zähler.VALUE
GL01Zähler.VALUE
GL02Zähler.VALUE

 

[MAN]

Wenn ich dich richtig verstanden habe sollte es so funktionieren:

If SB01Zähler.Value = 1 Then
   MsgBox "Meldung"  'deine Meldung eben
End If
If SB02Zähler.Value = 1 Then
   MsgBox "Meldung"
End If
If GL01Zähler.Value = 1 Then
   MsgBox "Meldung"
End If
If GL02Zähler.Value = 1 Then
   MsgBox "Meldung"
End If
...

mfG,
MAN

 

[tesarolle]

Nicht ganz, es soll nur EINE Meldung ausgegeben werden wenn auch nur ein OptionButton aktiviert ist,

Das ganze wird für ein Formular verwendet in dem Man Checkboxen aktivieren muss, aktiviert man gar keine Checkbox kommt dann eine Meldung "Sie haben nichts ausgewählt" oder so...

Bei Deinem Beispiel erhalte ich ja mehrere Meldungen....

 

[Shakie]

    Dim blnMindEinerAktiviert As Boolean
    blnMindEinerAktiviert = Option1.Value Or Option2.Value Or Option3.Value ....
    If Not blnMindEinerAktiviert Then MsgBox "Nichts ausgewählt!"

Aber ich verstehe nicht ganz, warum du die OptionButton nicht alle gleich nennst und sie dann per Index abfragst und man kann doch bei Optionbuttons die in einem Frame sind sowieso nur einen aktivieren!?

 

[MAN]

Wieder etwas neues dazugelernt. Auf diese Idee wäre ich nicht gekommen.

"Danke auch" Erleichtert mir ebenfalls einiges in meinen Programmen!


mfG,
MAN