Ich habe eine TextBox in einer UF.
Dort dürften 1. NUR Zahlen eingegeben werden.
2.Dann nur Zahlen von 3 bis 154.
Könnte mir bitte jemand helfen?
Gruß Heinz
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Select Case TextBox1
Case 3 To 154
Case Else: Cancel = True
End Select
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub