Gruppe
Dialog
Problem
Wie kann ich die Eingabe von nichtnumerischen Zeichen in eine TextBox einer UserForm verhindern?
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