Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Zahl As Integer
Zahl = KeyCode
' hier wird die "Tastennummer" ausgelesen
If Zahl = 48 Then
' hier wird die Zahl ausgewertet, da nur der
' Bereich von 0 bis 9 ( 48 - 58 )verwendet werden
' darf werden alle anderen eingaben mit KeyCode=0
' gelöscht
ElseIf Zahl = 49 Then
ElseIf Zahl = 50 Then
ElseIf Zahl = 51 Then
ElseIf Zahl = 52 Then
ElseIf Zahl = 53 Then
ElseIf Zahl = 54 Then
ElseIf Zahl = 55 Then
ElseIf Zahl = 56 Then
ElseIf Zahl = 57 Then
ElseIf Zahl = 58 Then
Else
KeyCode = 0
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Zahl As Integer
Zahl = KeyAscii
If Zahl = 48 Then
ElseIf Zahl = 49 Then
ElseIf Zahl = 50 Then
ElseIf Zahl = 51 Then
ElseIf Zahl = 52 Then
ElseIf Zahl = 53 Then
ElseIf Zahl = 54 Then
ElseIf Zahl = 55 Then
ElseIf Zahl = 56 Then
ElseIf Zahl = 57 Then
ElseIf Zahl = 58 Then
Else
KeyAscii = 0
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen