Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.BeforeRightClick ... geht nicht

Application.BeforeRightClick ... geht nicht
29.04.2015 09:34:43
Karsten
Morgen, morgen...
ich möchte F12 für Rechtsclick ummanipulieren.
Ich dachte mir die Sache folgendermaßen: 
Private Sub Workbook_Activate()
Application.OnKey "{F12}", "Rechtsclick"
End Sub

Sub Rechtsclick()
Application.BeforeRightClick
End Sub Aber, Application.BeforeRightClick wird zumindest so nicht unterstützt.
Kann mir jemand eine Lösung nennen?
Besten Dank, Gruß Karten.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.BeforeRightClick ... geht nicht
29.04.2015 10:01:14
Tino
Hallo,
weiß nicht was du damit vorhast.
Kannst es mal so versuchen.
kommt als Code in DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Activate() 
Application.OnKey "{F12}", "Rechtsclick" 
End Sub 
 
Private Sub Workbook_Deactivate() 
Application.OnKey "{F12}" 
End Sub
kommt als Code in Modul1 
Option Explicit 
 
Private Declare Sub mouse_event Lib "user32.dll" _
    (ByVal dwFlags As Long, ByVal dx As Long, _
    ByVal dy As Long, ByVal dwdata As Long, _
    ByVal dwExtraInfo As Long) 
 
Sub Rechtsclick() 
Const MOUSEEVENT_RightDOWN = &H8 
Const MOUSEEVENT_RightUP = &H10 
 
Const MOUSEEVENT_LEFTDOWN = &H2 
Const MOUSEEVENT_LEFTUP = &H4 
 
 
mouse_event MOUSEEVENT_RightDOWN, 0, 0, 0, 0 
mouse_event MOUSEEVENT_RightUP, 0, 0, 0, 0 
End Sub
Gruß Tino

Anzeige
AW: Application.BeforeRightClick ... geht nicht
29.04.2015 10:53:33
Karsten
Hallo Tino,
danke, das suchte ich.
Gruß Karsten

AW: Application.BeforeRightClick ... geht nicht
29.04.2015 10:09:31
EtoPHG
Hallo Karsten,
Keine Ahnung was du da zusammenbasteln willst.
Die Application kennt keinen 'Before'Rechtsklick-Event.
Das Workbook kennt ein _SheetBeforeRightClick Event.
Gruess Hansueli

AW: Application.BeforeRightClick ... geht nicht
29.04.2015 10:54:47
Karsten
danke, aber ich habe Tinos Code genommen.

AW: Application.BeforeRightClick ... geht nicht
29.04.2015 10:47:19
Daniel
Hi
Schreibe den Code, der bei RightClick ausgeführt werden soll, als normales Makro in ein allgemeines Modul
Verwende ActiveCell anstelle von Target.
Rufe im BrforeRightClick-Event dieses Macro auf.
Weise dem Macro eine Tastenkombination zu, über die du es ebenfalls starten kannst.
Das geht über den Menüpunkt Makros in Ansicht oder Entwicklertools.
Gruß Daniel

Anzeige
AW: Application.BeforeRightClick ... geht nicht
29.04.2015 10:54:31
Karsten
danke, aber ich habe Tinos Code genommen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige