Private Sub Anzahl_txt_KeyPress(ByVal Keyascii As
MSForms.ReturnInteger)
If Keyascii = 13 Then ...
warum reagiert das nicht !??!!
Private Sub Anzahl_txt_KeyPress(ByVal Keyascii As
MSForms.ReturnInteger)
If Keyascii = 13 Then ...
warum reagiert das nicht !??!!
Laut Hilfe wird z.B. die ENTER-Taste von KeyPress nicht unterstützt. Für ENTER ist das KeyDown- oder das KeyUp-Ereignis zu verwenden.
Gruß
Gerd
Private Sub object_KeyDown( ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As fmShiftState)
auch schon probiert, geht auch nicht
in vb reicht
private sub object_keypress(keyascii as integer)
if keyascii = 13 then ...
ist das in vba anders ?
oder muss ich oben bei der ersten möglichkeit irgendwas für keycode der für shift eintragen ?!?
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.StatusBar = KeyCode & " " & Shift
End Sub
ich habs jetzt
trotzdem danke für die mühe
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen