In allen TextBoxen nur Zahlen
07.12.2016 11:28:01
Max2
ich habe eine Userform mit 86 TextBoxen
Ich möchte dass man ausschließlich ganze Zeilen Eingeben kann.
Mein Ansatz bis jetzt:
Dim tb As TextBox
Private Sub TextBox86_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Application.DisplayAlerts = False
For Each tb In UserForm1
If Left(tb.Name, 7) = "TextBox" Then
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End If
Next
Application.DisplayAlerts = True
End Sub
Was muss ich verändern anders machen damit es geht ?