VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nichtnumerische Eingaben in TextBox verhindern

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox