cmdButton mit Enter aktivieren

Forumthread: cmdButton mit Enter aktivieren

28.10.2005 15:46:32

Metin

Hallo Nepumuk
Ich hatte folgende Zeile eingegeben


Private Sub Eingabe_KeyDown(ByVal KeyCode As MSForms.CommandButton)
If KeyCode = 13 Then cmdEingabe.Activate
End Sub

Es passiert aber nichts. Keine Fehlermeldung garnichts.
Kannst du oder ihr da draussen mir bitte weiterhelfen.
Gruß Metin

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Habe die Lösung

28.10.2005 16:07:33

Metin

AW: Habe die Lösung

28.10.2005 16:07:33

Metin

Juhuu! Hab´s endlich
Die Lösung lautet


Private Sub cmdEingabe_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then If GetAsyncKeyState(16) Then txtKabelnummer.Activate Else txtProjektname.Activate
If KeyCode = 13 Then cmdEingabe = True
End Sub

Mit KeyCode 9 anwählen und KeyCode 13 aktivieren.
Gruß Metin

Forumthread: cmdButton mit Enter aktivieren

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread