Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shift-Taste auswerten bei Mausklick

Forumthread: Shift-Taste auswerten bei Mausklick

Shift-Taste auswerten bei Mausklick
02.12.2004 16:15:29
gerhardw
Hallo Forummsteilnehmer,
zur Zeit starte ich in einem Tabellenblatt Programm1 mit Doppelklick und Programm2 mit Rechtsklick.
Nun möchte ich Programm2 durch Doppelklick bei gedrückter Shift-Taste starten. Ich weiß jedoch nicht, wie ich den Tastenstatus auswerten kann.
Weder durch googeln noch bei den Api-Funktionen bin ich bisher fündig geworden.
Hat jemand eine Idee?
Grüße Gerhard
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shift-Taste auswerten bei Mausklick
02.12.2004 20:08:59
Josef
Hallo Gerhard!
Mit Shift ist schwierig, weil bei gedrückter Shift-Taste der Doppelklick
nicht erkannt wird.
Aber mit [Alt] geht's zB. so:

' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If WitchKey(18) Then
MsgBox "Mit ALT Taste!"
'statt MsgBox natürlich dein Makro!
Else
MsgBox "Ohne ALT Taste!"
End If
End Sub

' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer

Public Function WitchKey(KeyC As Long) As Boolean
If GetAsyncKeyState(KeyC) = -32767 Then
WitchKey = True
Else
WitchKey = False
End If
End Function

Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
sehr schön
GerhardW
Hallo Sepp,
Deine Lösung klappt prima. Die Alt-Taste ist für meine Zwecke genauso gut geeignet.
Über die verwendete Api-Funkltion war ich zwar schon gestolpert, hatte aber ihren Nutzen nicht erkannt.
Dein Beitrag ist sehr sorgfältig und übersichtlich zusammengestellt. Du hast mir damit sehr geholfen. Vielen Dank!
Grüße nach Tirol
Gerhard


Anzeige
;

Forumthreads zu verwandten Themen

Kontextmenü bei rechtem Mausklick
Torsten

Hallo beisammen,
seit einem Download aus einem Intranet-Programm erscheint bei einem rechten Mausklick auf einen Registerreiter in einer Excel-Datei das Kontextmenü nicht mehr. Wie kann ich das wieder korrigieren?
Vielen Dank für Eure Hilfe vorab.
Gruß
Torsten
21.10.2008 09:36:00
Thread-ID: 1017863
5 Beiträge
Anzeige
Makro auf Tabelle läuft nur nach Mausklick
Joachim

Hallo,
ich brauch mehr als 3 bedingte Formatierungen. Daher habe ich den folgenden Code für die 4. Bedingung im Worksheet eingetragen:
Private Sub Worksheet_SelectionChange(ByVal Target as Excel.Range) If Range("A12").Value = 16 Then Range("C15").Interior.ColorIndex = 34 Else Range("C...
24.10.2008 13:02:00
Thread-ID: 1018974
10 Beiträge
Mausklick registrieren
S.

Hallo zusammen,
ich möchte auf einer geöffneten Userform einen einfachen Mausklick (kein Doppelklick) registrieren, etwa so:
If "linke Maustaste gedrückt", dann msgbox "Geht doch!"
Dabei spielt es keine Rolle, ob der Mausklick auf der Userform erfolgt oder daneben.
Ich hoffe, di...
03.11.2008 16:54:59
Thread-ID: 1021378
6 Beiträge
Einfügen per Mausklick
Ralf

Hallo Leute!
Kann mir jemand sagen, ob es möglich ist per Mausklick ein "x" in eine Zelle einzufügen und es bei einem weiteren Klick wieder zu löschen? Und ob es möglich ist gleichzeitig wenn ein "X" in der Zeile gesetzt ist die anderen 8 Spalten der Tabelle zu sperren?
Bin für jeden Hi...
06.11.2008 19:20:16
Thread-ID: 1022403
8 Beiträge
Mausklick "löschen"
Polarfuchs

Hallo Ihr Checker,
in einem Programm können mehrere Möglichkeiten zu einer Frage angeklickt werden. Dann wird eine Korrektur vorgenommen und dann in die aktive Userform neue Werte in die Captions der OptionButtons eingefügt.
Mein Problem ist, dass wenn man versehentlich zweimal mit der...
11.11.2008 19:41:57
Thread-ID: 1023657
6 Beiträge
Name des OptionButtons bei Mausklick ausgeben
S.

Hallo zusammen,
ich habe eine Userform, die einen Rahmen enthält, der mit einer variablen Anzahl von Optionbuttons automatisch bestückt wird (Set TextBox, Set OptionButton). Bei Anklicken eines Optionbuttons soll der die Nummer des Optionsbuttons in einer Textbox auf derselben Userform ersc...
14.11.2008 11:25:00
Thread-ID: 1024498
3 Beiträge
UserForm merfach Listbox per mausklick für TexBox
Schmidt

Hallo na alle im Forum,
ich bin neu hier, Heise Robert und fange gerade an mich mit Excel VBA auseinander zu setzen (Anfänger)
Meine Frage:
Übernahme per Mausklick in UserForm - mehrspaltige Listbox in txb1>Spalte1, in txb2>Spalte2,
txb3>Spalte3?
So sieht meine code...
21.02.2009 11:13:10
Thread-ID: 1052578
5 Beiträge
Rectangle und Rechtsmausklick
KlausMö

Guten Abend
Ich habe keine Lösung für das deaktivieren der rechten Maustaste über ein
Rectangle.
Schaut Euch bitte die Beispieldatei an, dort ist mein Problem näher beschrieben.
https://www.herber.de/bbs/user/60365.xls
Vielleich weiß ja jemand eine Lösung.
Danke
Gru...
16.03.2009 19:37:51
Thread-ID: 1060904
3 Beiträge
MonthView regiert nicht auf Mausklick
reiner

Hallo Leute,
ich kann das Kalenderelement MonthView in Office 2007 sowohl auf dem Tabellenblatt einfügen als auch über ein VBA-Formular problemlos öffnen.
Wenn ich jedoch auf einen anderen (als den aktuellen) Tag klicke, passiert nichts.
Wenn ich hingegen MonthView auf einem andere...
16.04.2009 11:28:18
Thread-ID: 1069026
6 Beiträge
TreeView lange Einträge - Mausklick geht nicht
Alfons

Hallo,
in einem TreeView stehen einige Dateinamen die länger sind als das TreeView breit ist
und deshalb rechts nicht komplett angezeigt werden.
Bei Mausklick soll die Datei im WebBrowser1 angezeigt werden.
Das geht bei den langen Dateinamen nur dann wenn ich erst mit dem horizo...
28.07.2009 10:37:09
Thread-ID: 1091606
2 Beiträge
Anzeige
Makro nach Mausklick abhängig vom Zellwert
Fritz_W

Hallo Forumsbesucher,
ich wende mich an die VBA-Kundigen und hoffe auf die Unterstützung bei folgendem Vorhaben:
In der Zelle AH21 meiner Tabelle liefert eine Formel den Zellwert.
Ich würde gerne, dass bei einem Mausklick auf diese Zelle das Makro abläuft, das dem Namen des aktuell...
03.09.2009 13:21:01
Thread-ID: 1100333
3 Beiträge
Aktion beim Mausklick
Rene

Hallo,
ich habe eine eigene Symbolleiste mir gebaut mit einem Pulldownmenü. Mein Problem ist nun, dass mein Makro (MeineListe1) erst dann losläuft, wenn ich eine Auswahl getroffen habe. ich möchte aber mein Makro starten, wenn ich auf die Auswahl klicke, weil ich dann die Liste erst füllen...
21.01.2010 11:49:48
Thread-ID: 1131709
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige