zer0core
Ensign
- Registriert
- Sep. 2007
- Beiträge
- 174
Guten Morgen,
ich möchte in einem Formular prüfen, ob 3 Option Button Gruppen mit jeweils 3 oder 4 auswahlmöglichkeiten ausgewählt wurden.
Ich habe bisher folgenden Code:
leider funktioniert es in den einzelnen Frames nie bei dem untersten bzw. letzten Option Button.
Ich weiß leider nicht warum.
Bitte um Hilfe
ich möchte in einem Formular prüfen, ob 3 Option Button Gruppen mit jeweils 3 oder 4 auswahlmöglichkeiten ausgewählt wurden.
Ich habe bisher folgenden Code:
Code:
Dim ctrl As Control
Dim ctrl2 As Control
Dim ctrl3 As Control
'##### Schleife für Frame 1 #####
For Each ctrl In fraAusstellung.Controls
If TypeOf ctrl Is msforms.OptionButton Then
If ctrl.Value = True Then
'##### Schleife für Frame 2 #####
For Each ctrl2 In fraOrt.Controls
If TypeOf ctrl2 Is msforms.OptionButton Then
If ctrl2.Value = True Then
'##### Schleife für Frame 3 ####
For Each ctrl3 In fraUhrzeit.Controls
If TypeOf ctrl3 Is msforms.OptionButton Then
If ctrl3.Value = True Then
'##### Wenn alles ausgefüllt
GoTo ausfüllen
End If
Else
MsgBox ("Bitte Zeit ausfüllen")
GoTo ende
End If
Next ctrl3
End If
Else
MsgBox ("Bitte Ort ausfüllen")
GoTo ende
End If
Next ctrl2
End If
Else
MsgBox ("Bitte Ausstellung ausfüllen")
GoTo ende
End If
Next ctrl
leider funktioniert es in den einzelnen Frames nie bei dem untersten bzw. letzten Option Button.
Ich weiß leider nicht warum.
Bitte um Hilfe
