Gruppe
Feature
Problem
Wie kann ich verhindern, daß der Anwender nur Ganzzahlen größer als 0 eingibt?
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