Alleen een getal in een textbox

[r3000]

Hoe zorg ik ervoor dat de gebruiker alleen een getal in een textbox in mag/kan vullen?
Ik heb het nu zo opgelost: Bekijk bijlage Alleen getallen in textbox.xlsm
Maar dan krijg ik dus twee keer de melding omdat de textbox wordt leeggehaald.

 

[edmoor]

Zoiets?

    If IsNumeric(TextBox1.Text) = False And TextBox1.Text <> "" Then
        MsgBox "U kunt alleen getallen invoeren"
        TextBox1.Value = ""
    End If

Maar kijk eens eens naar deze in plaats van die in het Change event:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57
        Case Else
            KeyAscii = 0
            MsgBox "Alleen cijfers toegestaan"
    End Select
End Sub

 

[r3000]

Ik had deze oplossing in de tussentijd bedacht maar ik vind die van jou mooier.

If TextBox1.Value = "" Then
Exit Sub
End If
If IsNumeric(TextBox1.Value) Then
Exit Sub
Else
MsgBox ("U kunt alleen getallen invoeren")
TextBox1.Value = ("")

 

[edmoor]

Die heb ik heel goed afgekeken