Hallo,
ich möchte gerne, dass der User nur Zahlen in ein Textfeld eingeben kann. Habe da auch eine Lösung, allerdings wollte ich noch wissen, ob ich tatsächlich dazu verdonnert werde für alle 48 Textfelder den Code anzupassen.
Kann ich das nicht irgendwie verbinden oder vereinfachen?
Vielen Dank und Grüße von einem Anfänger ;o)
BeAFrog
ich möchte gerne, dass der User nur Zahlen in ein Textfeld eingeben kann. Habe da auch eine Lösung, allerdings wollte ich noch wissen, ob ich tatsächlich dazu verdonnert werde für alle 48 Textfelder den Code anzupassen.
Code:
Private Sub txtm1_KeyPress(KeyAscii As Integer)
KeyAscii = NurZahlen(KeyAscii)
If KeyAscii = 13 Then SendKeys "{tab}"
End Sub
Kann ich das nicht irgendwie verbinden oder vereinfachen?
Vielen Dank und Grüße von einem Anfänger ;o)
BeAFrog