textbox in userform
10.04.2008 23:16:10
ralf
habe 13 textboxen in userform und mit diesem code überwache ich die eingabe
in den boxen . so wie ich es mache muss ich folgenden code für jede textbox eingeben
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(TextBox1, ",") 0 Then
If Len(TextBox1) - InStr(TextBox1, ",") > 1 Then KeyAscii = 0
End If
Case Asc("."), Asc(",")
If InStr(TextBox1, ",") 0 Then
KeyAscii = 0
Else
KeyAscii = Asc(",")
End If
Case Asc(vbBack)
Case Asc("-")
Case Else
KeyAscii = 0
End Select
End Sub
gibt es eine möglichkeit diesen code so umzuändern das ich mit einen code
alle textboxen überwache
gruß ralf
Anzeige