Reihenfolge von Ereignissen

Hallo,
da ich leider noch nicht fündig geworden bin, hier eine Frage zur Reihenfolge von Ereignissen.
In meiner Mappe werden verschiedene Ereignisse abgefragt, jedoch wäre es wichtig bei "Worksheet_SelectionChange" zu wissen, ob dies durch Drücken der rechten Maustaste ausgelöst wurde.
Nehme ich "Worksheet_BeforeRightClick" wird dies jedoch immer erst als zweites durchlaufen.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) MsgBox "1" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "2" End Sub

Es kommt also immer erst die Meldung 2 und dann 1.
Gibt es eine Variante die Reihenfolge zu beeinflussen oder auch bei Worksheet_SelectionChange zu prüfen, ob die rechte Maustase gedrückt wurde?

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If "rechte Maustaste gedrückt" then Msgbox "1" else MsgBox "2" end if End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim ChangeAddress As String Dim RightAddress As String Dim ChangeAndRightHappened As Boolean Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) RightAddress = Target.Address ChangeAndRightHappened = ChangeAddress = RightAddress If ChangeAndRightHappened Then MsgBox "Selection with RightClick" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) ChangeAddress = Target.Address ChangeAndRightHappened = ChangeAddress = RightAddress If ChangeAndRightHappened Then MsgBox "Selection with RightClick" End Sub

Bei deinem Code startet immer erst


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ChangeAddress = Target.Address
ChangeAndRightHappened = ChangeAddress = RightAddress
If ChangeAndRightHappened Then MsgBox "Selection with RightClick"
End Sub

EGAL ob rechts oder links geklickt wurde.
Im Falle eines Rechtsklicks steht zu dem Zeitpunkt in "RightAddress" aber entweder nichts,
oder die irgendwann mal zuletzt rechts angeklickte Zelle. Erst danach wird im Falle eines Rechtsklicks die Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
RightAddress = Target.Address
ChangeAndRightHappened = ChangeAddress = RightAddress
If ChangeAndRightHappened Then MsgBox "Selection with RightClick"
End Sub

aufgerufen. Diese wertet dann richtig aus, nur ist es da eben schon zu spät.
Der Code erkennt also erst im Zweiten Schritt einen Rechtsklick, entscheidet aber schon vorher.
Die MSGbox aus sub "Worksheet_SelectionChange" erscheint aber immer dann, wenn zufällig mit rechts oder links in eine Zelle gedrückt wird, in die zuvor als letztes rechts gedrückt wurde. Egal ob dies mit der linken oder rechten Maustaste geschehen ist...

Option Explicit Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" ( _ ByVal vKey As Long) As Integer Private Const VK_RBUTTON As Long = &H2 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If GetAsyncKeyState(VK_RBUTTON) And 1 = 1 Then Call MsgBox("Rechts") Else Call MsgBox("links") End If End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread