Office: Excel Makro zur Fragebogen Auswertung (Excel 03)

Hallo!

Ich bin relativ unerfahren im Bezug auf Excel Makros/VBA usw. und hoffe jemand kann mir weiterhelfen:

Ich habe ein Arbeitsblatt mit mehreren Optionsfeldern (Steuerelement-Toolbox).

Mit einem Makro (gestartet durch Button) soll überprüft werden, ob GENAU 15 Optionsfelder vom Benutzer ausgewählt worden sind - wenn nicht, dann soll eine MessageBox geöffnet werden (z.B. "nicht alle Fragen wurden beantwortet").

Da ich die entsprechenden Befehle nicht kenne (und weiß wie man diverse Schleifen usw. mit VBA realisiert) bitte ich um Hilfe

Mein vorhandener Code lautet in gekürzter Form (sonstige Auswertungen der Optionsfelder habe ich gelöscht!):

Code:

Option Explicit

Public Sub prcEvaluation()
    Dim objOLEObjekt As OLEObject
    For Each objOLEObjekt In Tabelle1.OLEObjects
        If TypeOf objOLEObjekt.Object Is MSForms.OptionButton Then
            If objOLEObjekt.Object.Value Then
                Select Case objOLEObjekt.Object.GroupName

' hier findet sämtliche sonstige auswertung der Optionsfelder statt

                End Select
            End If
        End If
    Next

' hier sollte die Auswertung stattfinden, ob wirklich GENAU 15 Optionsfelder ausgewählt wurden
        
End Sub

Hoffe jemand kann mir bei meinem Problem weiterhelfen!
lg, matthias

 

Hallo Matthias,

schönen Code hast du da. Ich dachte du bekommst es alleine angepasst.... ;-)

Warum bleibst du nicht in deinem Thread?

http://www.office-loesung.de/fpost454907.php#454907

 

Und da ist die Antwort: http://www.office-loesung.de/fpost456772.php#456772

 

Gehören denn die beiden Foren irgendwie zusammen?

Ich dachte, das sei ok in beiden Foren die selbe Frage zu posten, aber wenn dem nicht so ist - sorry!

Danke jedenfalls für die Hilfe, lg, Matthias