|
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.
|