Listener wieder entfernen

[Shirkan]

Liebe Leute,

habe einen Listener erzeugt, den ich zu gegebenener Zeit auch wieder entfernen möchte möchte. Dazu die Sub "StopEventListener", bekomme aber immer die Fehlermeldung "Objektvariable nicht belegt.". Kann mir jemand sagen, wie ich des richtig mache? Vielen Dank für Eure Hilfe.
VG S.

Code: Alles auswählen

Private oListener
Private cellRange as Object
Global AllServices

Type allServicesStruct
    svc As String
End Type

'---------------------------------------------------------------------------
Sub AddListener
    Dim sheet
    Dim  cell as Object
    
    sheet = ThisComponent.Sheets.getByIndex(0)  'get first sheet
    cellRange = sheet.getCellrangeByName("E4:J5")
    oListener = createUnoListener("Modify_","com.sun.star.util.XModifyListener")
    cellRange.addModifyListener(oListener)

End Sub

'---------------------------------------------------------------------------
Sub Modify_modified(oEv)
    MsgBox AllServices.svc   
End Sub

'---------------------------------------------------------------------------
Sub StartDocEventListener
	'Listener registrieren
    Dim allServicesLocal As allServicesStruct
    
    allServicesLocal.svc = "example"
    AllServices = allServicesLocal
    
    AddListener
End Sub

'---------------------------------------------------------------------------
Sub StopEventListener
	cellRange.RemoveModifyListener(oListener)
End Sub

'---------------------------------------------------------------------------
Sub Modify_disposing
End Sub

[Shirkan]

Habe es jetzt soweit gelöst. Falls es noch mal jemand braucht.
Gruß S.