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
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