Public Function PruefenCheckboxFrame(fRahmen As Frame, _
                                     strRahmenName As String)
 
    Dim cControl As Control
 
    For Each cControl In fRahmen.Controls
        If cControl.Value = True Then
            PruefenCheckboxFrame = True
            Exit Function
        End If
    Next cControl
 
    MsgBox "Im Rahmen " & strRahmenName & " muss zwingend ein Wert gewählt" & _
      vbCr & _
        "sein! Bitte prüfen Sie Ihr Angaben!", vbCritical, "Fehler Eingabe"
 
End Function