seit 2 Tagen versuche ich das DoubleClick-Ereignis in einem Klassenmodul zum Laufen zu bringen. (Geltungsbereich: alle geöffneten Arbeitsmappen)
Die Ereignisse SheetChange, SheetSelectionChange ..... laufen.
Vielleicht könnt Ihr mir helfen. Hier der offensichtlich falsche Code.
In "DieseArbeitsmappe"
Dim AD As New clrD 'Deklaration
...Private Sub Workbook_Open()
.......Set AD.BD = Application
...End Sub
Im Klassenmodul "clrD"
Public WithEvents BD As Application 'Deklaration
...Private Sub BD_BeforeDoubleClick( _
...ByVal Target As Range, Cancel As Boolean)
.......MsgBox ("Hier ist das Doppelklick-Ereignis")
...End Sub
Auch dieser Code geht nicht.
...Private Sub BD_SheetBeforeDoubleClick(ByVal Sh As Object, _
...ByVal Target As Range, ByVal Cancel As Boolean)
.......MsgBox ("Hier ist das Doppelklick-Ereignis")
...End Sub
(Die Vorschau zeigte, dass die Einrückung zur Programmstruktur nicht angenommen wird. Deshalb die Punkte)
Besten Dank noch an Guenter und M.Kuhn für die schnelle Hilfe zu meiner Anfrage "Sprung von der Userform in die Tabelle". - Hat gut geklappt.
Gruss HJ