Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
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
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.OnKey

Forumthread: Application.OnKey

Application.OnKey
Jonathan
Hey,
ich möchte beim Drücken der Tastenkombination STRG + f eine Prozedur auslösen. Allerdings nur, wenn eine bestimmte UF geöffnet ist. Die Prozedur soll einfach nur den Focus auf ein bestimmtes Feld setzen. Ich habe es einfach mal mit
Application.OnKey "^{f}", "testA"
innerhalb UserForm_Initialize() probiert, klappt leider nicht.
Wie müsste ich dies richtig angehen?
VG
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Application.OnKey
07.09.2011 06:36:31
Hajo_Zi
Hallo Jonathan,
das Marko TestA befindet sich schon in einem Modul?

AW: Application.OnKey
07.09.2011 14:07:17
Jonathan
Hallo Hajo!
Das Makro TestA habe ich versuchshalber als 

Public Sub in einem Modul und innerhalb der UF untergebracht - beides hat nicht geklappt...


Private Sub UserForm_Initialize()
Application.OnKey "^{k}", "testA"
End Sub





Public Sub testA()
MsgBox "asdf"
End Sub
Anzeige
AW: Application.OnKey
07.09.2011 14:53:09
Mäxl
HI
"Allerdings nur, wenn eine bestimmte UF geöffnet ist."
da geht IMHO Onkey NICHT!
die Tastenkombination würde nur dann funktionieren
1. wenn die Form geschlossen wird
2 wenn sie ungebunden ist (VbModal aus false) und die Form inaktiv ist.
Du könntest mit

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
End Sub


Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
End Sub
oder was auch immer arbeiten (möglicherweise auf einem Steuerelement mit z.B exit oder change......)
gruß
Mäxl
Anzeige
AW: Application.OnKey
07.09.2011 17:45:25
Jonathan
Hey,
ich habe im Netz noch was dazu gefunden: Das KeyDown Ereignis wird wohl immer nur von dem Element abgerufen, welches den Focus hat. Ich müsste also für jedes Steuerelement das Ereignis abfangen... ;-(
Hier hab ichs gelesen:
http://forum.chip.de/basic/vba-tastendruck-pruefen-1149131.html
Das müsste dann doch auch über ein Klassenmodul funktionieren?
Anzeige
AW: Application.OnKey
07.09.2011 18:46:38
Jonathan
Ich habe gerade den letzten Beitrag von dir Franz in meinem anderen Thread gelesen; dieser ist also erledigt! vielen Dank!!!!
;

Forumthreads zu verwandten Themen

OnKey in UserForm
selli

hallo liebe leute,
ich stehe vor einem problem, für dass ich zwar im forum eine lösung gefunden habe, jedoch scheint mir diese für meine anwendung recht aufwendig zu sein und hoffe, mir kann jemand einen einfacheren weg aufzeigen.
ich möchte in einer userform, die viele steuerelemente e...
02.10.2008 14:48:00
Thread-ID: 1013893
6 Beiträge
Anzeige
OnKey bei Userform
Reinhard

Hallo Wissende,
für eine UF als Taschenrechnernachbau will ich die Rechnertasten mit CommandButtons nachbauen.
Z.B. für den CB mit der Caption "+" will ich es so einrichten, daß das Drücken der tastaturtaste "+" dem Klick auf dem CB entspricht.
Desgleichen für die Entertaste und den...
21.01.2009 18:05:19
Thread-ID: 1042341
15 Beiträge
OnKey
MBorn

Hallo,
kann mir bitte jemand erklären, warum bei
Private Sub Workbook_Open() Application.OnKey "{F1}", "ModulnameXYZ" End Sub
in "Diese Arbeitsmappe"
nicht das Modul ModulnameXYZ aufgerufen wird?
Danke,
Born
18.06.2009 16:20:18
Thread-ID: 1082677
9 Beiträge
Anzeige
Per ".OnAction" und ".OnKey" Nebeninformation
Martin

Hallo liebe Excelgemeinde,
ich würde gerne eine Nebeninformation beim Aufruf eines Makros übergeben:
Sub Makro1(Info as Integer) Msgbox Info End Sub
Leider klappt das weder per .OnKey noch per .OnAction:
Sub Test1() Application.OnKey "{F5}", "Makro1(1)" End Sub Sub Test2()...
01.07.2009 15:53:27
Thread-ID: 1085772
3 Beiträge
Frage zu Application.OnKey
Matthias

Hallo Excelfreunde
kann man Application.OnKey nicht mit den Ziffern 0 bis 9 der Tastatur belegen ?

Folgender Code funktioniert einwandfrei:
Tabelle1 Private Sub Worksheet_Activate() Application.OnKey "^{F1}", "MyProcedur1" Application.OnKey "^{F2}", "MyProcedur2" Application.On...
18.07.2009 18:55:41
Thread-ID: 1089677
4 Beiträge
Application.OnKey - Kombinationsmöglichkeiten
Peter

Guten Tag
Was gibt es alles für Tastenkombinationen, denen ich mittels Application.OnKey Befehle zuweisen kann?
Gruss, Peter
22.07.2009 08:00:40
Thread-ID: 1090376
3 Beiträge
OnKey
Max

Hallo,ich möchte einer Tastenkombination eine bestimmte Funktionalität zuweisen. Mit 'OnKey' funktioniert das auch.Meine Frage wäre nun, ob ich der Funktion die ich dann aufrufe Parameter mitgeben kann?Bsp.:
Private Sub Workbook_Open()
'hier soll an die sub 'Message' ein Parameter übergeb...
26.04.2002 10:42:54
Thread-ID: 116537
6 Beiträge
Application OnKey
Wilhelm R.

Liebes Forum,
mit folgendem wird ein Makroaufruf auf die Enter Taste im Ziffernblock gelegt, gleichzeitig soll dann aber die normale Return Taste inaktiv sein:
Sub auto_open()
''legt die Überprüfung der Eingabe in Spalte D auf "Return" im Ziffernblock
Application.OnKey "{ENTER}", "S...
10.05.2002 09:37:53
Thread-ID: 119885
3 Beiträge
Onkey + [Alt]-Taste in Excel 2010
Axel

Hallo alle miteinander,
erstmal einen schönen Gruss an alle und Gratulation zum tollen Forum. Ich stöbere seit Stunden in sämtlichen Internet-Foren komme aber auf keinen grünen Zweig für mein folgendes Problem:
Ich portiere gerade VBA-Anwendungen von Excel 2003 nach Excel 2010. Unter an...
14.09.2010 07:39:58
Thread-ID: 1177044
2 Beiträge
Anzeige
onkey
Elke

Hallo,
kurze Frage an die Excel-VBA-Gemeinde. Wenn ich mit Application.Onkey im VBA Code die Escapetaste während der Programmausführung aussschalten möchte, dachte ich es wäre einfach mit: Sub MeinBeispielOnKey() Application.OnKey "{ESC}", "" ' Esc ausschalten For t = 1 To 20000...
31.03.2011 14:55:24
Thread-ID: 1208524
9 Beiträge
OnKey mit mehreren Tasten (String mitgeben)
Jürgen

Hallo Zusammen,
ich möchte bei bestimmen Buchstaben eine Prozedur starten, und dann den Buchstaben ausführen lassen.
Nun kann ich doch Prozeduren einmal erstellen und die Variable beim Aufruf übergeben.
Geht das auch mit Onkey?
Meine Prozedur starten eine Art Überprüfung und trä...
04.04.2011 16:14:05
Thread-ID: 1208943
4 Beiträge
Onkey für Mausklick
Hartmut_M

Hallo,
gibt es eigentlich eine Möglichkeit den Mausklick mit Onkey abzufragen?
Ähnlich wie die Enter Taste: Application.OnKey "{ENTER}"
Danke für die Unterstützung.
Hartmut
04.08.2011 17:03:40
Thread-ID: 1224923
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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