Addin Double_click
11.03.2004 07:51:53
Gerhard Heinzerling
ich habe eine XLA-Datei erstellt, in der ich das Doppelklick-Event abfange und danach einige Aktionen ausführe. (Code siehe unten).
In der neuen Datei, in der ich das Addin nutzen möchte, wird dieses Event jedoch von der eigenen Ereignisbehandlung abgefangen.
Wie bekomme ich denn nun meine Addin-Routine in die eigentliche Arbeitsmappe?
Viele Grüße
Gerhard Heinzerling
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Range("G" & Target.Row).Value = Empty Then
Range("G" & Target.Row).Value = "Privat"
Range("A" & Target.Row, "G" & Target.Row).Select
Selection.Interior.ColorIndex = 15
Else
Range("G" & Target.Row).Value = Empty
Range("A" & Target.Row, "G" & Target.Row).Select
Selection.Interior.ColorIndex = xlNone
End If
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Anzeige