|
Am Beispiel von 2 Checkboxen:
Codebereich allgemeines Modul:
Option Explicit
Public cls(2) As clsKlasse1
Codebereich diese Arbeitsmappe:
Option Explicit
Private Sub Workbook_Open()
Set cls(0) = New clsKlasse1
Set cls(0).Object = Worksheets(1).OLEObjects(1).Object
Set cls(1) = New clsKlasse1
Set cls(1).Object = Worksheets(1).OLEObjects(2).Object
End Sub
in den Codebereich des Klassenmoduls: Klasse1
Option Explicit
Private WithEvents chk As MSForms.CheckBox
Private Sub chk_Click()
MsgBox chk.Caption & " wurde angeklickt." & vbNewLine & "LinkedCell: " & chk.LinkedCell
End Sub
Private Sub Class_Terminate()
Set chk = Nothing
End Sub
Public Property Set Object(ByVal vNewValue As Object)
Set chk = vNewValue
End Property
Wenn nun eins deaktiviert wird, lässt sich rausfinden, welches das war (LinkedCell).
Rest kannste dann ableiten.
|