Eigenschaften Textbox festlegen
25.05.2018 18:26:27
Michael
ich bastle gerade an meiner Userform. Ich habe ein Such-Textbox in einer Userform. Diese Textbox soll in einer bestimmten Spalte nach einer 7 stelligen Kennziffer suchen. Den Code dafür habe ich fertig. Wichtig ist mir die Textbox mit zwingenden Eigenschaften (=Begrenzungen) zu definieren, als da wären:
a.) Es dürfen nur die Ziffern 0-9 eingegeben werden; Buchstaben, Sonderzeichen sind unzulässig
b.) Kennziffer die exakt 7stellig ist (7 wirft eine Fehlermeldung aus, z.B. "Kennziffer unzulässig, Überprüfen bitte!"
Ich habe jetzt folgendes:
Private Sub UserForm_Initialize()
TextBox1.MaxLength = 7
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
'(Zahlen von 0-9)
Case Else
KeyAscii = 0
End Select
End Sub
----------------Dumm nur; es gibt keine Begrenzung der Definition "MinLength"
Ich habe festgestellt, dass, wenn man nach einer Zahlenreihe und die Zahlenkombintion "347" passt, dann werden auch Datensätze ausgeworfen, die ggf. diese Kombination haben, daher will ich die Defintion auf exakt 7 setzen. Hat jemand eine Idee?
Gruß Michael
Anzeige