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