VBA: Validering på textbox
HejJeg har en userform med en textbox. Denne textbox's indhold skal jeg bruge når brugeren klikker "OK".
Jeg skal tjekke om tallet er større end et maksimum tal, eller mindre end et minimum tal. Maksimum tallet findes i felt F2, og minimum tallet i E2.
For eksempel:
Private Sub button_OK_Click()
Select Case Int(UserForm1.TextBox1.Value)
Case Is < Range("E2").Value
UserForm1.TextBox1.Value = Range("E2").Value
Case Is > Range("F2").Value
UserForm1.TextBox1.Value = Range("F2").Value
End Select
End Sub
Hvis jeg erstatter linie to i eksemplet med følgende:
Select Case UserForm1.TextBox1.Value
bliver tallet altid større end maksimum. Det kan så hindres ved at bruge Int(), problemet er bare at Int() returnere en fejl hvis det så ikke er et tal jeg har i TextBox1.
Mit spørgsmål er derfor - Hvordan kan jeg tjekke om det er et tal brugeren har indtastet?
På forhånd tak