Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

onkey-methode während codeausführung

Forumthread: onkey-methode während codeausführung

onkey-methode während codeausführung
18.06.2008 16:59:20
rich
mit der onkey-methode will ich die cursor-buttons abfragen und eine prozedur starten
ich hab festgestellt, dass diese abfrage nicht funktioniert, wenn code in einer schleife ausgeführt wird
ist das ein bekannter umstand, oder kenn ich einen trick o.ä. nicht?
danke

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: onkey-methode während codeausführung
18.06.2008 17:04:00
Matthias
Hallo Rich,
schreib' mal

DoEvents


in die Schleife.
Gruß Matthias

AW: onkey-methode während codeausführung
18.06.2008 17:27:05
rich
danke für die schnelle antwort, bin aber leider noch nicht zur lösung meines problems gekommen.
vorab eine frage:
reicht es, einmal mittels onkey-methode einer taste eine prozedur zuzuweisen, um diese dann mittels dieser taste, egal wo ich mich in meinem code (evtl. andere prozedur) befinde, auch mehrmals, aufzurufen?
hintergrund zu meinem problem: ich will eine aktion in bestimmten zeitabschnitten (ms-bereich) wiederholen
eingesetzt habe ich dafür, die funktion gettickcount, die ich immer wieder abfrage und entsprechend bei ablauf der zeit eine variable setze, die meine besagte aktion freigibt.
in dieser schleife (sprünge in andere prozeduren vorhanden) will ich die cursortasten abfragen um eine variable zu setzten.
Die onkey-methode mit setzen der variable außerhalb der schleife ist gestestet und funktioniert
ich hab das doevents in meine schleife gepackt, leider ohne erfolg.
wer kann mir helfen?
danke

Anzeige
AW: onkey-methode während codeausführung
18.06.2008 23:21:00
Josef
Hallo Rich,
das geht so nicht, dazu musst du die Tastatur abfragen
Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Const VK_KEYA = &H41 'A key
Const VK_KEYB = &H42 'B key
Const VK_KEYC = &H43 'C key

Sub Tastenabfrage()
Dim datNow As Date

datNow = Now + TimeSerial(0, 0, 30)

Do
    
    If GetAsyncKeyState(VK_KEYA) = -32768 Then
        MsgBox "A-Taste gedrückt"
    ElseIf GetAsyncKeyState(VK_KEYB) = -32768 Then
        MsgBox "B-Taste gedrückt"
    ElseIf GetAsyncKeyState(VK_KEYC) = -32768 Then
        MsgBox "C-Taste gedrückt"
    End If
    
Loop While datNow > Now

End Sub


Gruß Sepp



Anzeige
AW: onkey-methode während codeausführung
19.06.2008 15:51:09
rich
so funktioniert es - danke

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 16:48:00
Thread-ID: 1013893
5 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 19:05:19
Thread-ID: 1042341
14 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 18:20:18
Thread-ID: 1082677
8 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 17:53:27
Thread-ID: 1085772
2 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 20:55:41
Thread-ID: 1089677
3 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 10:00:40
Thread-ID: 1090376
2 Beiträge
Anzeige
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 12:42:54
Thread-ID: 116537
5 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 11:37:53
Thread-ID: 119885
2 Beiträge
Anzeige
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 09:39:58
Thread-ID: 1177044
1 Beitrag
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 16:55:24
Thread-ID: 1208524
8 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum