Gruppe
Ereignis
Problem
Das Doppelklickereignis soll für alle geöffneten Arbeitsmappe gelten.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Set MyApp.xlApp = application
End Sub
ClassModule: clsApp
Public WithEvents xlApp As application
Private Sub xlApp_SheetBeforeDoubleClick( _
ByVal Sh As Object, _
ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
MsgBox "Zelle: " & Target.Address(False, False) & vbLf & _
"Arbeitsblatt: " & Sh.Name & vbLf & _
"Arbeitsmappe " & Sh.Parent.Name
End Sub
StandardModule: basMain
Public MyApp As New clsApp