Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.11.2008 10:42:48 |
Michael |
|
|
Aw:Excel - CheckBoxes als Group abfragen? |
03.11.2008 12:53:25 |
jh |
|
|
|
03.11.2008 13:08:00 |
Michael |
|
|
Von:
jh |
Datum:
03.11.2008 12:53:25 |
Views:
979 |
Rating:
|
Antwort:
|
Thema:
Aw:Excel - CheckBoxes als Group abfragen? |
Hallo,
meines Wissens hat die GroupName-Eigenschaft in erster Linie den Zweck,
Gruppen einander ausschließender OptionButtons zu erstellen. Übrigens
gibt es zwei verschiedene Arten Checkboxen, die man in ein Worksheet
einfügen kann, ActiveX-Steuerelemente oder Excel-Checkboxen (aus der
Symbolleiste "Formular"). Letztere haben allerdings kein Click-Ereignis,
sondern eine OnAction-Eigenschaft, so dass ich annehme, bei dir handelt
es sich um ActiveX-Checkboxen (aus der "Steuerelement-Toolbox").
Füge ein Klassenmodul ein und ersetze den Standardnamen "Klasse1" z. B.
durch "clsCheckBox". Füge dort folgenden Code ein:
Public WithEvents chkBox As MSForms.CheckBox
Im DropDown-Feld zur Objektauswahl oben links findest du nun das Objekt
chkBox. Wenn du es auswählst, wird eine leere Prozedur chkBox_Click
erstellt, in die du deinen Code schreiben kannst. Im rechten DropDown-
Feld findest du bei Bedarf alle übrigen Ereignisse.
Nun musst du der Klasse noch deine Checkboxen hinzufügen. Wenn du überall
im Projekt darauf zugreifen willst, gehört der folgende Code in ein
allgemeines Modul, anderenfalls kannst du ihn auch im Codebereich des
Worksheets plazieren.
Dim objChk() As New clsCheckBox
' in einem Modul ersetze Dim durch Public
Private Sub IniCheckBoxes()
Dim oleObj As OLEObject, l As Long
ReDim objChk(0)
For Each oleObj In Worksheets("Tabelle1").OLEObjects
If oleObj.ProgId = "Forms.CheckBox.1" Then
l = UBound(objChk) + 1
ReDim Preserve objChk(l)
Set objChk(l).chkBox = oleObj.Object
End If
Next oleObj
End Sub
Die Sub musst du nur einmal aufrufen.
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.11.2008 10:42:48 |
Michael |
|
|
Aw:Excel - CheckBoxes als Group abfragen? |
03.11.2008 12:53:25 |
jh |
|
|
|
03.11.2008 13:08:00 |
Michael |
|
|