Aus Modul1

Option Explicit Public cls(2) As Klasse1

Aus 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

Aus Tabelle1(Code)

Option Explicit

Private Sub Workbook_Open()

Set cls(0) = New Klasse1
Set cls(0).Object = Worksheets(1).OLEObjects(1).Object

Set cls(1) = New Klasse1
Set cls(1).Object = Worksheets(1).OLEObjects(2).Object

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Wenn ich dein Beispiel richtig verstanden habe, dann schaut Sub Workbook_open beim Öffnen nach welche Checkboxen vorhanden sind.Beim Anklicken der Checkbox (aktivieren), wird die Function aufgerufen und es soll eine Msg-Box öffnen, die die Information anzeigt, welche Checkbox angeklickt wurde. Ich bekomme hier immer den Laufzeitfehler 1004. Die Checkboxen sind in Zelle C2 und D2 und in den Eigenschaften verlinkt.

Ich hoffe ich habe es richtig verstanden.