dieser code soll die falscheingabe abfangen.
nachdem dei msgbox geschlossen ist springt der curser aber in textbox2.
wie erreiche ich das der curser wieder zur neueingabe in textbox1 bleibt?
gruss
peter
Private Sub txtInteger_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txtInteger) > 0 And Len(txtInteger) < 8 Then
MsgBox "Bitte 8 Zahlen eingeben..."
Cancel = True
End If
End Sub
Private Sub txtInteger_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Dienen diese Zahlen der datenanlage? Wenn nicht,
verstehe ich nicht, warum du die Zahlen nicht aus einer combobox auswählen lässt. Du setzt doch immer voraus, dass der user die 8-stelligen Zahlen kennt. Außerdem musst du ja immer prüfen, ob die eingegebene Zahl auch vorhanden ist.
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