Direkt zum Seiteninhalt
CodeBeispiel
APP mit VBA
Nur Zahlen in Textbox eingeben
Das folgende Programmbeispiel zeigt wie man dies erreicht.

Das erste Beispiel KZahl zeigt zuerst die Lösung Kardinalzahlen 0-9
Diese Funktion KZahl in ein Modul kopieren.

Public Function KZahl(ByVal Z As Integer, FehlMsg As Boolean) As Boolean
  'Nur Zahlen(48-57)zulassen
  If Z > 47 And Z < 58 Then
      KZahl = True
  Else
      If FehlMsg = True Then MsgBox "... nur Zahlen erlaubt!", vbInformation, "Eingabefehler"
      KZahl = False   'Function
  End If
End Function

Der Aufruf dieser Funktion erfolgt in der Textbox. in der Aktion KeyPress

Private Sub txtBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KZahl(KeyAscii, True) = False Then KeyAscii = 8      'Function
End Sub

Das zweite Beispiel SZahl zeigt die Lösunmg mit SingleZahlen z.B (12.25)
Diese Funktion KZahl in ein Modul kopieren.

Public Function SZahl(ByVal Z As Integer, FehlMsg As Boolean) As Boolean
 'Nur Zahlen(48-57) und Komma (44) zulassen (Single)
 If Z = 44 Or (Z > 47 And Z < 58) Then
     SZahl = True
 Else
     If FehlMsg = True Then MsgBox "... nur Zahlen und 'Komma' erlaubt!", vbInformation, "Eingabefehler"
     SZahl = False   'Function
 End If
End Function

Der Aufruf dieser Funktion erfolgt in der Textbox. in der Aktion KeyPress

Private Sub txtBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If SZahl(KeyAscii, True) = False Then KeyAscii = 8     'Function
End Sub

Zurück zum Seiteninhalt