VBA - Tastaturabfrage

Question

Wie kann ich im VBA mit dem "Application.OnKey"-Befehl die "5" auf der numerischen Tastatur abfragen?

Für die "1", z.B., sieht es so aus:

Application.OnKey "{END}", "mein_Makro"

Answer 1

Hallo JeJaTy

JeJaTy wrote:

Wie kann ich im VBA mit dem "Application.OnKey"-Befehl die "5" auf der
numerischen Tastatur abfragen?

Für die "1", z.B., sieht es so aus:

Application.OnKey "{END}", "mein_Makro"

Das hängt davon ab, ob NumLock aktiv ist oder nicht. Du kannst den Tastatur
Scancode direkt in geschweiften Klammern verwenden. Hier eine Liste der
Scancodes des Numerischen Tastatur Blockes:

Num. Tast./     NumLock  NumLock
Beschriftung    aus      ein
------------    -------  -------
 0 Ins           45       96
 1 End           35       97
 2 Down          40       98
 3 PgDn          34       99
 4 Left          37      100
 5               12      101
 6 Right         39      102
 7 Home          36      103
 8 Up            38      104
 9 PgUp          33      105

In Deinem Fall wäre also für die 5 auf dem numerischen Block {12}, rsp.
{101} zu benutzen, abhängig davon, ob NumLock eingeschaltet ist oder nicht.

HTH

Henry

Answer 2

Hallo JeJaTy,

Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

Grüße,
Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 3

Hallo Henry

Vielen Dank für Deine hilfreiche Antwort

Jean-Jacques

Answer 4

Hallo Robert

Danke der Nachfrage. Ja, und ich habe gerade den Vorschlag von Henry beantwortet.

Grüsse

Jean-Jacques