Private Sub tb_Ident_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 13
'prüfen ob länge eingegebener ident stimmt - erst wenn ok in Listbox übernehmen
If Len(frm_Programm_1.tb_Ident) = 11 Then
'Eingegebene länge OK
Me.lb_Ident.AddItem Me.tb_Ident.Value
Else
MsgBox ("Bitte prüfen Sie die Ident!" & Chr(10) & Chr(10) & " Länge _
nicht OK"), vbCritical, "abbruch"
Me.tb_Ident.SetFocus
Exit Sub
End If
Case 37, 39, 8, 46
Case 48 To 57
Case 96 To 105
Case Else
KeyCode = 0
End Select
End Sub
Hallo noch einmal an alle,muss erneut um Hilfe bitte.Komme nicht weiter.
ich habe eine userform.In dieser sind u.a ein Commandbutton eine Textbox und ein Frame und eine Listbox.
Ich will jetzt das man in die textbox nur zahlen eingeben darf und pfeil rechts und links und bei Enter ein anderes Makro ausgeführt wird.
Das klappt auch super aber ich möchte das ganz am anfang wenn also die Enter Taste gedrückt wird geprüft wird ob die Länge der eingegebenen zahl 11 Stellen hat.
Das klappt auch.Was ich nicht hinbekomme ist wenn die zahl weniger als 11 Stellen hat kommt ja im Beispiel oben eine fehler msgbox.
Danach möchte ich gerne den Focus wieder in die Textboix geben das versuche ich mit
Me.tb_Ident.SetFocus
aber das klappt nicht.Was mache ich falsch ?
Danke gruß Chris