Private Sub txtEingabe_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr$(KeyAscii)) = 0 And KeyAscii <> vbKeyBack Then _
  KeyAscii = 0
End Sub
 
Private Sub txtEingabe2_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr$(KeyAscii)) = 0 And KeyAscii <> vbKeyBack Then _
  KeyAscii = 0
End Sub
 
Private Sub Form_Load()
txtEingabe = ""
txtEingabe2 = ""
End Sub
 
Private Sub txtEingabe_Change()
 
If txtEingabe <> "" Then
 
 txtEingabe = Int(txtEingabe) ' Nullen abschneiden
 
 If txtEingabe < 1 Or txtEingabe > 100 Then
   MsgBox "Es sind nur Zahlen von 1 bis 100 zulässig"
   txtEingabe.SetFocus
   txtEingabe.SelStart = 0
   txtEingabe.SelLength = Len(txtEingabe)
   Exit Sub
 End If
 
 If Not Me.ActiveControl = txtEingabe2 Then
  If txtEingabe = 1 Then txtEingabe2 = 500
  If txtEingabe = 2 Then txtEingabe2 = 1000
  If txtEingabe = 3 Then txtEingabe2 = 1999
 End If
 
End If
 
End Sub
 
Private Sub txtEingabe2_Change()
 
If txtEingabe2 <> "" Then
 
 txtEingabe2 = Int(txtEingabe2) ' Nullen abschneiden
 
 If Not Me.ActiveControl = txtEingabe Then
  If txtEingabe2 > 0 And txtEingabe2 < 500 Then txtEingabe = 1
  If txtEingabe2 > 499 And txtEingabe2 < 1000 Then txtEingabe = 2
  If txtEingabe2 > 999 And txtEingabe2 < 2000 Then txtEingabe = 3
 End If
 
End If
 
End Sub