habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in einem Klassenmodul
Private Sub clTextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890" & Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Funktioniert wunderbar. Jetzt ist allerdings das Problem, dass alle Textboxen für Buchstaben verboten sind. Ich möchte allerdings das die Textboxen 1 bis 6 für alles frei sind und die Textboxen 7 bis 66 nur für Zahlen. Wie ihr seht, sind es sehr viele Textboxen, so dass:
Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) usw.
End Sub
keine wirkliche Lösung wäre.
Hoffe ihr könnt mir bei meinem Problem helfen.
Gruß
Uli