Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

DoubleClick-Ereignis für alle Arbeitsmappen initialisieren

Gruppe

BeforeDoubleClick

Problem

Das Doppelklickereignis soll für alle geöffneten Arbeitsmappe gelten.

Lösung
Geben Sie den nachfolgenden Code in das genannte Klassen- und das Standardmodul ein.

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