VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nichtnumerische Eingaben verhindern

Gruppe

Feature

Bereich

Gültigkeit

Thema

Nichtnumerische Eingaben verhindern

Problem

Wie kann ich verhindern, daß der Anwender nur Ganzzahlen größer als 0 eingibt?

Lösung

Geben Sie die Beschränkung über Menü DATEN / GÜLTIGKEIT... 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 Feature und Gültigkeit