Tastatureingaben

Forumthread: Tastatureingaben

Tastatureingaben

06.07.2005 14:18:36

Rene

Hi Leute,
wie fragt doch gleich nochmal die Tastatureingaben mit VBA ab?
gruss René
Bitte Rückmeldung

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tastatureingaben

06.07.2005 14:25:09

Heiko
AW: Tastatureingaben

06.07.2005 14:27:12

Rene
AW: Tastatureingaben

06.07.2005 14:30:02

Heiko
AW: Tastatureingaben

06.07.2005 14:33:33

Rene
AW: Tastatureingaben

06.07.2005 14:43:44

David
AW: Tastatureingaben

06.07.2005 14:48:28

Rene
AW: Tastatureingaben

06.07.2005 14:53:30

Heiko
AW: Tastatureingaben

06.07.2005 14:58:03

Rene
AW: Tastatureingaben

06.07.2005 15:00:45

Rene
Pfeiltasten

07.07.2005 07:25:47

Heiko
AW: Tastatureingaben

06.07.2005 14:42:55

Rene

AW: Tastatureingaben

06.07.2005 14:25:09

Heiko

Hallo Rene,
suchst du das ?
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Gruß Heiko

PS: Rückmeldung wäre nett !

AW: Tastatureingaben

06.07.2005 14:27:12

Rene

Hi Heiko,
also ich möchte das ein Makro ausgeführt wird wenn ENTER gedrückt wird.
Hab das schon ewig nicht mehr gebraucht.
gruss René
Bitte Rückmeldung

AW: Tastatureingaben

06.07.2005 14:30:02

Heiko

Hallo Rene,
wenn wo ENTER gedrückt wird.
Immer wenn Enter gedrückt wird;
Nur im Tabellenblatt, Textbox, Userform
In einem laufenden Makro ?
Gruß Heiko

PS: Rückmeldung wäre nett !

AW: Tastatureingaben

06.07.2005 14:33:33

Rene

Also ich habe ein Makro,
welches bei jeder Änderung im Blatt anspringt.
Und wenn ENTER gedrückt wird (also in eine Zelle was reinschreiben und ENTER drücken)
dann soll eine bestimmte Bedigung geprüft werden.
also z.B.:


Private Sub Worksheet_Change(ByVal Target As Range)
if Tastendruck = Enter then
tue dies
else tue das
end if
End Sub

gruss René
Bitte Rückmeldung

AW: Tastatureingaben

06.07.2005 14:43:44

David

ungefähr so
Private Sub KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

AW: Tastatureingaben

06.07.2005 14:48:28

Rene

Passt schon,
meine Lösung passt ganz gut.
Trotzdem danke!!!
gruss René
Bitte Rückmeldung

AW: Tastatureingaben

06.07.2005 14:53:30

Heiko

Hallo Rene,
z.B. so
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_RETURN = &HD 'Enter


Private Sub Worksheet_Change(ByVal Target As Range)
If GetAsyncKeyState(VK_RETURN) = -32768 Then
MsgBox "Enter", vbInformation
End If
End Sub

Ob das mit Keypressed geht, glaube ich noch nicht so ganz. Da Keypressed ein Ereignis von Formularen ist. Aber ich lasse mich ja gerne eines besseren belehren.
Ausschnitt aus der VBA Hilfe:
Hinweise
Das KeyPress-Ereignis tritt ein, wenn der Benutzer eine Taste drückt, die auf einem ausgeführten Formular ein darstellbares Zeichen (ein ANSI-Zeichen) ergibt, während das Formular oder ein Steuerelement in diesem Formular den Fokus hat. Dieses Ereignis kann vor oder nach dem Loslassen der Taste eintreten. Dieses Ereignis tritt auch ein, wenn Sie einen ANSI-Tastenanschlag an ein Formular oder ein Steuerelement senden und dazu entweder die SendKeys-Aktion in einem Makro oder die SendKeys-Anweisung in Visual Basic verwenden.
Gruß Heiko

PS: Rückmeldung wäre nett !

AW: Tastatureingaben

06.07.2005 14:58:03

Rene

ja genau so paßt das!
Danke!
gruss René
Bitte Rückmeldung

AW: Tastatureingaben

06.07.2005 15:00:45

Rene

hast du auch ne Ahnung wie die Pfeiltasten "heißen"?
Wie die greife?
gruss René
Bitte Rückmeldung

Pfeiltasten

07.07.2005 07:25:47

Heiko

Hallo Rene,
Private Const VK_UP = &H26 'Pfeil oben
Private Const VK_RIGHT = &H27 'Pfeil rechts
Private Const VK_DOWN = &H28 'Pfeil unten
Private Const VK_LEFT = &H25 'Pfeil links
und den Rest guckst du hier:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/WindowsUserInterface/UserInput/VirtualKeyCodes.asp
Gruß Heiko
PS: Rückmeldung wäre nett !

AW: Tastatureingaben

06.07.2005 14:42:55

Rene

Ich habe jetzt schon ne Lösung gebastelt.
Wenn Du trotzdem ne Lösung hättest wäre es toll.
Da war doch irgendwas mit sendkey oder onkey (o.ä.)
gruss René
Bitte Rückmeldung

Beliebteste Forumthreads (12 Monate)

Forumthread: Tastatureingaben

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread