Zelle nochmals anklicken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Cells(1, 1)) Is Nothing Then MsgBox "angeklickt wurde " & Target.Address End If Cells(1, 1).Select End Sub

…Franz;
dein „langsamer DoppelKlick“ löst lt deiner Beschreibung ein Worksheet_Change-Ereignis aus. Man kann eine Zelle erst auswählen und dann in die Edit-Zeile klicken oder per DoppelKlick auf die Zelle editieren. In beiden Fällen wdn nach Beenden des so verursachten Edit-Modus 2-3 Ereignisse ausgelöst, erst _SelectionChange und ggf anschließend _BeforeDoubleClick, danach auf jeden Fall noch _Change, egal ob dabei was geändert wird oder nicht. Das kannst du nutzen, um deine Vorstellung zu realisieren, aber im Prinzip reicht allein _Change schon aus, es sei denn, du benutzt das auch für andere Zwecke. Dann musst du den Inhalt der Zelle merken (1.Ereignis → GlobalVariable) und beim 2.|3.Ereignis erneut und beide Werte vgln. Davon machst du abhängig, was passieren soll. Nach dem, was du schreibst, also bei DoppelKlick mit Änderung nichts, ohne Änderung aber Aufruf des Pgms. Ich würde ggf allerdings RechtsKlick (mit MenüUnterdrückung → Cancel = True) bevorzugen.
Alternativ kannst du auch DoppelKlick für Änderungen reservieren und dabei eine GlobalVariable setzen, aber das halte ich für unsicher, weil die Nutzer unterschiedliche EditierGewohnheiten haben können und ggf auch beide Möglichkeiten nutzen. Ggf ist es aber deshalb zweckmäßig, hier ebenfalls die gleiche GlobalVariable wie beim 1.Ereignis zu setzen, denn eine solche Zelle kann ja bei BlattWechsel schon ausgewählt sein. Dann wird in beiden Fällen das 1.Ereignis nicht ausgelöst.
Morhn, Luc :-?

Hallo Luc,
danke für Deine Antwort. Ich habe sei erst nicht gesehen, weil die Email-Benachrichtigung nicht funktioniert und ich das Thaema bereits abgehakt habe. Deswegen sehe ich routinemäßig erst nach einiger Zeit nach, ob noch Antworten hereingekommen sind.
Aus Deinen Ausführungen konnte ich keinen Lösungsansatz finden, zumindest nicht für mein Problem.
Folgendes Makro zeigt die Ausgangslage:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Ausdruck Target, "Before DoubleClick", Cancel
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Ausdruck Target, "Before RightClick", Cancel
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ausdruck Target, "SelectionChange"
End Sub

Sub Ausdruck(Zelle As Range, Meldung As String, Optional ByRef Abbruch As Boolean)
Abbruch = True
Debug.Print Zelle.Address & " " & Meldung
End Sub .
(leider wird das letzte Sub nicht als Makro dargestellt, weiss der Geier warum)
Klick nun eine Zelle an. Das löst ein SelectionChange aus.
Nun klick sie nochmals an, und das löst nichts aus.
Das habe ich mit langsamer Doppelklick gemeint.
LG, Franz

Option Explicit Dim KlickWert Private Sub Dummy() Debug.Print "Dummy: keine Änderung "; KlickWert MsgBox "Hallo, hier bin ich!", , "Dummy" End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) KlickWert = Target.Address(0, 0) & ": " & CStr(Target) Debug.Print "BeforeDoubleClick: "; KlickWert End Sub Private Sub Worksheet_Change(ByVal Target As Range) If KlickWert = Target.Address(0, 0) & ": " & CStr(Target) Then Call Dummy Debug.Print "Change: "; Target.Address(0, 0) & ": " & CStr(Target) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) KlickWert = Target.Address(0, 0) & ": " & CStr(Target) Debug.Print "SelectionChange: "; KlickWert End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread