Wurde Optionbutton in Frame gewählt?
19.06.2008 08:45:56
Specke
ich habe eine Userform mit vielen zunächst versteckten Frames, in denen wiederum Optionbutton sind.
Wenn in der ersten Ebene ein Optionbutton angeklickt wird, wird der entsprechende Frame in der zweiten Ebene eingeblendet usw.
Am Ende möchte ich auswerten, ob in jedem eingeblendeten Frame eine Option ausgewählt wurde. Dazu habe ich folgenden Code zusammengebastelt:
Private Sub cmd_Ok_Click()
For Each Cntrl In Me.Controls
If TypeName(Cntrl) = "Frame" And Cntrl.Visible = True Then
If Option_gewaehlt(Cntrl) = True Then
MsgBox "Es wurde was gewählt!"
Else
Cntrl.BorderStyle = 1
MsgBox "Bitte eine Option wählen!"
End If
End If
Next Control
Unload Me
End Sub
Function Option_gewaehlt(Rahmen As Frame) As Boolean
Dim ctl As Control
For Each ctl In Rahmen.Controls
If ctl.Value = True Then
Checkbox_gewaehlt = True
Exit Function
End If
Next
Checkbox_gewaehlt = False
End Function
Leider bricht das Makro in der fett markierten Zeile ab, Fehlermeldung: Argumenttyp ByRef unverträglich.
Was heißt das? Wie kann ich das Problem beheben?
Danke und Gruß
Specke