Gruppe
Dialog
Bereich
TextBox
Thema
Nichtnumerische Eingaben in TextBox verhindern
Problem
Wie kann ich die Eingabe von nichtnumerischen Zeichen in eine TextBox einer UserForm verhindern?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
Private Sub txtNumber_Change()
If Len(txtNumber.Text) = 0 Then Exit Sub
If Not Right(txtNumber, 1) Like "[0-9]" Then
Beep
MsgBox "Nur Zahlen bitte!"
With txtNumber
.SetFocus
.SelStart = txtNumber.TextLength - 1
.SelLength = 1
End With
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmZahlen.Show
End Sub