Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

Wurde Optionbutton in Frame gewählt?

Betrifft: Wurde Optionbutton in Frame gewählt? von: Specke
Geschrieben am: 19.06.2008 08:45:56

Hallo Experten,

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

  

Betrifft: AW: Wurde Optionbutton in Frame gewählt? von: Kawensmann
Geschrieben am: 19.06.2008 09:01:53

Hallo,

versuch's mal mit:

Function Option_gewaehlt(Rahmen As Control) As Boolean

Gruß
Kawensmann


  

Betrifft: Danke! Das war's! Gruß Specke owT von: Specke
Geschrieben am: 19.06.2008 09:16:08




 

Beiträge aus den Excel-Beispielen zum Thema "Wurde Optionbutton in Frame gewählt?"