in einer Userform Textbox möchte ich gerne das nur Eingaben gemacht werden können, welche
durch 1000 teilbar sind bzw. Zahlen 1000, 2000, 3000 bis 20000.
Danke!
Gruß
Lisa
'Code unter dem Userform-Module
'ausführliche Prüfung der Eingaben von Zahlenwerten in eine Textbox
Private Sub TextBox1_Enter()
With Me.TextBox1
If .Value = "" Then
.Value = "000"
.SelStart = 0
Else
'do nothing
End If
End With
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
If .Value "" Then
If Right(.Value, 3) "000" Or Val(.Value) "" Then
If (Not IsNumeric(.Value)) Or Right(.Value, 3) "000" Or Val(.Value)
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox2
If Val(.Value) Mod 1000 0 Then
MsgBox "Bitte nur Zahlen als ganze Vielfache von 1000 eingeben (z.B: 1000, 5000, _
22000)", _
vbInformation + vbOKOnly, "Prüfung Zahleneingabe"
Cancel = True
Else
.Value = Val(.Value) 'wandelt Texteingaben in eine 0
End If
End With
End Sub