Eingabeprüfung in Textboxen per Schleife
26.02.2004 13:37:27
toni
ich habe in einem Formular etwa 80 Textboxen (tb1 bis tb80. In den ersten fünfzig sollen nur Zahlen eingegeben werden dürfen. in den letzten dreißig nur Zahlen und maximal ein Komma.
Jetzt könnte ich natürlich achtzig KEYPRESS-Ereignisse schreiben, wie z.B.
Private Sub tb1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'nur Zahlen und ein Komma
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("."), Asc(",")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
KeyAscii = Asc(",")
End If
Case Else
KeyAscii = 0
End Select
End Sub
aber das erscheint mir doch recht viel Code.
Wie könnte ich das in einer Schleife abfangen.
Vielleicht kann mir ja jemand helfen.
Ciao,
Toni
Anzeige