Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Sie haben BeforeDoubleClick ausgeführt"
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
cancel=true
MsgBox "Sie haben BeforeDoubleClick ausgeführt"
End Sub
ransi