Thema Datum  Von Nutzer Rating
Antwort
15.11.2016 09:13:46 Christian Meyer
NotSolved
15.11.2016 20:07:37 Gast71937
NotSolved
Rot Click Events/Subs zusammenfassen
 16.11.2016 07:05:00 Gast17396
NotSolved

Ansicht des Beitrags:
Von:
Gast17396		 Datum:
16.11.2016 07:05:00		 Views:
730		 Rating:
     
Antwort:
  Ja
Thema:
Click Events/Subs zusammenfassen

Hallo Christian

Wie versprochen deine Lösung. Als erstes musst du eine neue Klasse hinzufügen. Klicke auf die Klasse und drücke F4, jetzt änderst du den Namen der Klasse in clsCheck. In die Klasse fügst du folgenden Code ein:

Option Explicit
Public WithEvents CheckBox As MSForms.CheckBox
    
Private Sub checkBox_Change()

    MsgBox CheckBox.Name

End Sub

Jetzt fügst du in ein Allgemeines Modul diesen Code ein:

Option Explicit

Public cCheck() As New clsCheck

Sub Check_Init ()
    Dim objChkB As OLEObject, intCount As Long
    For Each objChkB In ActiveSheet.OLEObjects
        If objChkB.progID = "Forms.CheckBox.1" Then
            intCount = intCount + 1
            ReDim Preserve cCheck(1 To intCount)
            Set cCheck(intCount).CheckBox = objChkB.Object
        End If
    Next
End Sub

Diese Sub Check_Init kannst du jetzt zum Beispiel im Workbooks_Open ereignis aufrufen, damit die Checkboxen in das Array cCheck geladen werden.


Private Sub Workbook_Open()

Call Check_Init

End Sub

 

Falls du noch Fragen hast, melde dich! Viel Spass damit

 

Gruss Mario

Ihre Antwort
  • 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: Name: Email:



  • 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
15.11.2016 09:13:46 Christian Meyer
NotSolved
15.11.2016 20:07:37 Gast71937
NotSolved
Rot Click Events/Subs zusammenfassen
 16.11.2016 07:05:00 Gast17396
NotSolved