SheetBeforeDoubleClick neu initalisieren
10.10.2006 06:16:24
Stefan
ich habe eine Arbeitsmappe, die auf Zellen-Doppelklicks reagiert. Folgender Aufbau:
DieseArbeitsmappe:
Private Sub Workbook_Open()
Dim AppClass As New clsDMT
Set AppClass.App = Application
End Sub
Klassenmodul clsDMT:
Public WithEvents App As Application
Private Sub App_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
'Code der nach Doppelklick ausgeführt werden soll
End Sub
Das Ganze klappt auch prima, nur geht die Funktionalität verloren,
sobald es einen VBA-Fehler gegeben hat. Erst nach Schliessen
und Öffnen des Workbooks gibts das Doppelklick-Feature wieder.
Gibt es einen Weg, diesen "EventListener" neu zu initalisieren?
Dank im Voraus.
Gruss
Stefan
Anzeige