Thema: Nur Zahlenwerte

Home

Abbildung - Nur Zahlenwerte

Prozedur: txtNumber_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Nur Zahlenwerte zulassen
Ablaufbeschreibung:
- Variablendeklaration
- TextBox-Inhalt an String-Variable übergeben
- Wenn die String-Variable leer ist, Prozedur verlassen
- Wenn es sich in der String-Variablen ein nichtnumerischer Wert befindet...
- TextBox-Text um ein Zeichen verkürzen

Code:


Private Sub txtNumber_Change()
   Dim sTxt As String
   sTxt = txtNumber.Text
   If sTxt = "" Then Exit Sub
   If Right(sTxt, 1) Like "[0-9]" = False Then
      txtNumber.Text = Left(sTxt, Len(sTxt) - 1)
   End If
End Sub