Discussion:
Event Worksheet_BeforeDoubleClick
(zu alt für eine Antwort)
Frank Schindler
2005-11-14 13:02:39 UTC
Permalink
hallo;

mit dem Event Worksheet_BeforeDoubleClick löse
ich beim Doppelclick in einer bestimmten Zelle
das Laden eines Userforms aus.
Wenn ich dieses Userform dann später wieder schliesse,
ist die aktive Zelle im "Bearbeitungszustand". Also der
Cursor blinkt innerhalb dieser Zelle. Wie kann ich das
unterbinden?
zur Zeit geh ich bei dem UserForm_Terminate Event
mit Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
einfach in die Nachbarzelle.

mfg
Frank
Melanie Breden
2005-11-14 13:09:16 UTC
Permalink
Hallo Frank,
Post by Frank Schindler
mit dem Event Worksheet_BeforeDoubleClick löse
ich beim Doppelclick in einer bestimmten Zelle
das Laden eines Userforms aus.
Wenn ich dieses Userform dann später wieder schliesse,
ist die aktive Zelle im "Bearbeitungszustand". Also der
Cursor blinkt innerhalb dieser Zelle. Wie kann ich das
unterbinden?
zur Zeit geh ich bei dem UserForm_Terminate Event
mit Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
einfach in die Nachbarzelle.
dazu ist der Parameter 'Cancel' in der Aufrufzeile der Prozedur zuständig.
Wenn der Parameter 'Cancel' im Verlauf der Ereignisprozedur auf True gesetzt
wird, wird dadurch das auslgeöste Ereignis (direkte Zellbearbeitung durch Doppelklick)
zurückgesetzt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
' dein Code

' ausgelöstes Ereignis zurücksetzen
Cancel = True
End Sub


Mit freundlichen Grüssen
Melanie Breden
--
- Microsoft MVP für Excel -
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Das Excel-VBA Codebook http://excel.codebooks.de
Excel-Auftragsprogrammierung
Frank Schindler
2005-11-14 13:22:31 UTC
Permalink
Post by Melanie Breden
Hallo Frank,
dazu ist der Parameter 'Cancel' in der Aufrufzeile der Prozedur zuständig.
Wenn der Parameter 'Cancel' im Verlauf der Ereignisprozedur auf True gesetzt
wird, wird dadurch das auslgeöste Ereignis (direkte Zellbearbeitung durch Doppelklick)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
' dein Code
' ausgelöstes Ereignis zurücksetzen
Cancel = True
End Sub
danke.

mfg
Frank

Loading...