Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nichtnumerische Eingaben in TextBox verhindern

Gruppe

TextBox

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