✔ Keine Reaktion nach ENTER

[Outsider77]

Hallo!
Ich habe eine Userform mit Textfeld. Nach Eingabe einer Artikel-Nummer
in das Textfeld und anschließendem 'ENTER' soll sich die Userform schließen
und eine Message-Box öffnen.
Das Problem hierbei ist, dass nach dem 'ENTER' einfach nix passiert.

Private Sub TextBox1_Enter()
UserForm1.Hide
artikel = TextBox1.Text
Range("C2") = artikel
If Range("AP1") = "s" Then
frage = MsgBox("Artikel " & Range("C2") & " wird gespeichert unter" & vbCrLf & "G:\FS-" & Right(artikel, 2) & "\Fahrpläne", vbOKCancel + vbInformation + vbDefaultButton1, "Autospeichern")
 ...

Hat jemand eine Idee, woran das liegen könnte?
Danke schon mal! Gruß Outi

 

[fredlllll]

was ich mich frage woher hast du den befehl ENTER? bei meiner textbox existiert der nicht.

ich denke du meinst dass das alles passieren soll wenn du im textfeld bist und ENTER drückst

in dem fall musst du bei der form "keypreview" einschalten dann bei form_keypress(keycode as integer,usw)
if keycode = vbKeyReturn then
lalala
endif

dein code sollte so aussehen am ende:

Private Sub Form_KeyPress(KeyAscii As Integer)
if keyascii = vbkeyreturn then
UserForm1.Hide
artikel = TextBox1.Text
Range("C2") = artikel
If Range("AP1") = "s" Then
frage = MsgBox("Artikel " & Range("C2") & " wird gespeichert unter" & vbCrLf & "G:\FS-" & Right(artikel, 2) & "\Fahrpläne", vbOKCancel + vbInformation + vbDefaultButton1, "Autospeichern")
endif
End Sub

jetz müsstest du noch rausfinden ob die box grad den focus hat... weiß grad aber nich wie des geht XD

 

[Outsider77]

Hey fredlllll...
Erstmal danke für Deine Antwort!
Der Befehl 'Enter' steht rechts im Auswahl-Fenster...schaust Du Anhang...
Allerdings kann ich für die Form kein "keypreview" einschalten.
Naja, ich versuche mein Glück mal weiter.

 

[fredlllll]

oh das ist VBA XD ich dachte das wäre normales vb6

mit dem du kannst nicht einschalten = geht ned oder = is ned da ? wenns ned da is ist es vll schon automatisch an... weiß es nicht genau da ich mit vb6 arbeite

 

[Outsider77]

Ups...bin ich etwa im falschen forum gelandet?
Wenn ja, dann sorry! Trotzdem danke für die Hilfe...

 

[Outsider77]

Also...ich hab mal ein Wenig gegoogelt und herausgefunden,
dass es ein vbkeyreturn-Ereignis in VBA wohl nicht gibt.

Habe es jetzt mit 'TextBox1_KeyDown' probiert und es läuft soweit auch...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
    Case Is = 13
        UserForm1.Hide
.
.
.
    Case Else
End Select
End Sub

Gruß Outi

 

[deepthroat]

Hi.

Also...ich hab mal ein Wenig gegoogelt und herausgefunden,
dass es ein vbkeyreturn-Ereignis in VBA wohl nicht gibt.

Nein, vbKeyReturn ist kein Ereignis. Es ist nur eine Konstante die du in einem EventHandler verwenden kannst um zu prüfen ob die Return Taste gedrückt wurde:

Select Case KeyCode
Case vbKeyReturn
  ...
End Select

Gruß