VisualBasic VBA Option Group abfragen

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:

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 :)
 
Formatiere deinen Code mal vernünftig, so daß die Blöcke korrekt ausgerichtet sind. So sieht dein ELSE z.B. unter dem grünen IF nach einem Schreibfehler aus.

So kann man das nicht lesen. Kannst auch ein in sich geschlossenes Beispiel posten.

Ein Bild der Form wäre auch nicht schlecht.
 
Zurück
Oben