104005

Dieses Makro führt nach einem Doppelklich in die Zelle A1 ein beliebiges Makro aus.
In diesem Beispiel wird das Makro1 aufgerufen und entsprechend ausgeführt.
Um dies zu realisieren, wird das Worksheet Event "Worksheet_BeforeDoubleClick" verwendet.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
    Makro1
End If
End Sub


Sub Makro1()
MsgBox "Du hast in Zelle A1 einen Doppel-Klick durchgeführt"
End Sub