Office: Steuerelemente Auswahl einschränken!

Hallo zusammen,

ich möchte gerne in einem Tabellenblatt Auswahlmöglichkeiten via Steuerelemente ermöglichen. Also entweder Optionsfeld oder Kontrollkästchen. Habe das Problem das ich nur eine gewisse Anzahl von Auswahlmöglichkeiten zulassen möchte.

Also z.B. eine Abfrage wie deine 3 liebsten Haustiere aus 5 möglichen zur Auswahl stehenden! Die Auswahl eines 4ten Haustieres soll nicht gesattet sein!

Wie bekomme ich dies umgesetzt? Kann man das bei den Eigenschaften nach erfolgter Gruppierung irgendwie einstellen oder via VBA definieren?

Danke für euere Hilfe im Voraus.

Gruß!

 

das geht nur per VBA.

Gruß Hajo

 

Hallo Hajo,
danke für die Info! Wie könnte ich dies per VBA umsetzen?
Gruß!

 

da gibt es unterschiedlich Wege, gerade was für Steuerelemente verwendet werden. (Aktivex Steuerelemente, Formular)Ich baue das nicht nach.

Gruß Hajo

 

Aktuell habe ich ActiveX Steuerelemente verwendet! Ich würde es gerne schaffen, das wenn 3 von 5 Kästchen ausgewählt wurden die andern beiden nicht mehr auswählbar sind.
Bisher habe ich lediglich einen Zähler hinbekommen, der mir ausgibt, wieviele Kästchen ausgewählt wurden (die MsgBox ist nur zur Kontrolle was für ein Ergebnis rauskommt).
Es fehlt also noch eine Limitierung auf 3 und die deaktivierung der nicht aktiven Kästchen.

Leider klappt es bisher auch nur via "checkbox1_click()" . Also nur dann wenn ich den Code je Checkbox dupliziere. Irgendwie müsste das auch via Klassenmodul funktionieren, das er bei einem click auf irgendeine Checkbox diesen Code laufen lässt. Aber das fehlt bisher auch noch.

Hier mal der bisherige Code:

Code:

Sub checkbox1_click()
    Dim cbFormular As CheckBox
    Dim cbSteuerelement As OLEObject
    Dim i As Integer

    For Each cbSteuerelement In ActiveSheet.OLEObjects
        If cbSteuerelement.progID Like ("*.CheckBox*") And cbSteuerelement.Object.Value = True Then
            i = i + 1
        End If
      
    Next
      MsgBox (i)
End Sub

Würde mich über Ideen freuen, wie ich weiter vorgehen muss!
Gruß

 

Und wieder ein kleines Stückchen weiter gekommen! Die Sperrung der Restlichen Kästchen klappt nun. Habe hier aber ersteinmal ein Limit von 2 eingestellt.

Code:

Sub checkbox3_click()
    Dim cbFormular As CheckBox
    Dim cbSteuerelement As OLEObject
    Dim i As Integer

    For Each cbSteuerelement In ActiveSheet.OLEObjects
        If cbSteuerelement.progID Like ("*.CheckBox*") And cbSteuerelement.Object.Value = True Then
            i = i + 1
        End If
    Next
    
    For Each cbSteuerelement In ActiveSheet.OLEObjects
    If i >= 2 And cbSteuerelement.progID Like ("*.CheckBox*") And cbSteuerelement.Object.Value = False Then
    cbSteuerelement.Object.Enabled = False
    Else
    cbSteuerelement.Object.Enabled = True
    End If
    Next
End Sub

Jedoch, was muss ich machen, das diese Regel für alle CheckBoxes gilt. Desweiteren ist es möglich die Regel für 5Checkboxen vielleicht einzugrenzen? Wenn man also 4x5Kontrollkästchen hat, das die regel nur innerhalb einer der 4 Gruppen gilt?

Danke für eure Hilfe im Voraus![/code]

 

der zählere im Makro nützt Dr nichts, Du solltest ihn schon Modul weit definieremn und bei Click
If I >=3 then ..._.Value =false.
Ich hätte es ja bei klick gezählt.

Gruß Hajo