ich habe eine UserForm mit 6 OptionButtons, 17 CheckBoxes und 4 CommandButtons.
Beim Klicken auf CommandButton4 soll geprüft werden ob einer der OptionButtons aktiv ist.
Der klassische Weg ist:
If OptionButton1.Value = True Or OptionButton2.Value = True Or OptionButton3.Value = True Or OptionButton4.Value = True Or OptionButton5.Value = True Or OptionButton6.Value = True Then...
Das funktioniert auch.
Weil mir das aber zu lang ist möchte ich eine Schleife nutzen:
Dim s As Integer
For s = 1 To 6
If Controls("OptionButton" & s).Value = True Then
...
Else
...
Exit Sub
End if
Next
Allerdins wird die Schleife abgebrochen sobald der erste OptionButton.Value = False ist. Damit wird also keine OR Funktion erzielt.
Gibt es eine andere Möglichkeit diese Funktion zu realisieren?
Gruß
Matthias