wie kann ich ohne eine große if-Abfrage in einer Textbox nur die Eingabe folgender Zahlenwerte: 1, 2, 3, 4, 5, 6, 7, 8.
Es dürfen nur diese Zahlenwerte eingegeben werden.
Gruß
Lenny
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1 <> "" Then
If Not IsNumeric(Me.TextBox1) Then
MsgBox "Texteingabe nicht erlaubt"
Me.TextBox1 = ""
Cancel = True
Exit Sub
End If
Select Case CInt(TextBox1)
Case Is < 1 > 8
MsgBox "Unerlaubter Wert"
Me.TextBox1 = ""
Cancel = True
Exit Sub
End Select
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 8, 46, 48 To 57, 96 To 105
Case Else
KeyCode = 0
End Select
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 8, 46, 49 To 56, 97 To 104
Case Else
KeyCode = 0
End Select
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox1) = 0 Then
Select Case KeyCode
Case 49 To 56, 97 To 104
Case Else
KeyCode = 0
End Select
Else
Select Case KeyCode
Case 8, 46
Case Else
KeyCode = 0
End Select
End If
End Sub