AW: Doppelklick deaktivieren
Hans-Werner
aus meiner Excelsammelmappe
hoffentlich hilfts
Tsch?s
H.W Schmidt
Dabei gehen Sie wie folgt vor:
1. Wechseln Sie in die Entwicklungsumgebung.
2. Klicken Sie die Tabelle im Projekt-Explorer doppelt an, in der Sie die
Funktionalit?t des Doppelklicks deaktivieren m?chten (TABELLE2 im
Beispiel).
3. Erfassen Sie zun?chst das Ereignis Worksheet_Activate, welches auftritt,
wenn Sie das Tabellenblatt aktivieren.
Private Sub Worksheet_Activate()
Application.OnDoubleClick = "KeineAktion"
End Sub
4. Das Ereignis Worksheet_Activate ruft ein Makro auf, welches Sie jetzt
auf Modulebene erfassen.
Makro, das ?berhaupt nichts macht
Sub KeineAktion()
End Sub
5. Sorgen Sie jetzt daf?r, dass die Funktionalit?t des Doppelklicks beim
Verlassen der TABELLE2 wiederhergestellt wird. Dazu setzen Sie das
Ereignis Worksheet_Deactivate ein.
Private Sub Worksheet_Deactivate()
Application.OnDoubleClick = ""
End Sub
Weisen Sie der Eigenschaft OnDoubleClick einen Leerstring zu, um die Funktionalit?t
des Doppelklicks wiederherzustellen.
Seit der Version Excel 2000 k?nnen Sie anstelle der Eigenschaft OnDoubleClick
auch das Ereignis Worksheet_BeforeDoubleClick einsetzen, um die Funktionalit?t
des Doppelklicks auszuschalten. Dazu setzen Sie das Argument Cancel des
Ereignisses auf den Wert True.
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub