[Excel] OLEObject und die Ereignisse

[neolithos]

Das OLEObject hat die zwei Ereignisse GotFocus und LostFocus.

Doch leider will es mit nicht gelingen die Ereignisse abzufangen.

Da habe ich folgenden Test versucht:

Kann mir jemand erkläaren warum es zu einem Laufzeitfehler kommt???

Code:

Private withevents t As OLEObject

Private Sub cmdTest_Click()
    Set t = Tabelle1.OLEObjects("cmdTest") ' <- Fehler: Ohne WithEvents klappt es
End Sub

Private Sub cmdTest_LostFocus()
    MsgBox "test"
End Sub
 
Private Sub t_LostFocus()
    MsgBox "test 2"
End Sub

In VBA-Code in einer Excel-Tabelle.