ich habe zwei Problem die ich nicht so richtig realisieren kann.
Das erste Problem ist, dass ich ein Textfeld so einrichten möchte, dass die Eingabe eines Promillewertes erfolgt. Dies bedeute, dass der Nutzer eine Zahl von 0,01 bis 5,00 eingeben kann.
Das Zweite Problem ist, der Nutzer soll nur Ganzezahlen eingeben können. Also keine Zahlen mit Komma oder anderen Zeichen.
Meine Versuche schlagen immer wieder Fehl
kann mir geholfen werden ?
Im Archiv habe ich leider auch noch keine für mich machbare Lösung gefunden.
Beispiel für Frage 1:
Private Sub TextBox10_Change()
' P o/oo
If TextBox9 5 Then
MsgBox "Keinen Wert unter 0,00 und keine Wert über 5,00 verwenden", vbInformation, "Gruß _
vom Schmausi"
TextBox10.BackColor = RGB(255, 0, 0)
TextBox10 = ""
ElseIf TextBox10 >= 0 Or TextBox10
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Fehler
Zahl = CDbl(TextBox10.Value)
If TextBox10.Value = 0 Then
Exit Sub
ElseIf TextBox10.Value Format(Zahl, "0,00") Then
TextBox10.Value = 0
MsgBox "Nur Zahlen mit Komma verwenden! ""max. O/oo"" wurde auf ""0"" gesetzt!", vbCritical, " _
Gruß vom Schmausi"
End If
Exit Sub
Fehler:
End Sub
Beispiel für Frage 2:
Private Sub TextBox1_Change()
' S gesamt
If TextBox1 10 Then
MsgBox "Keinen Wert unter 0 verwenden. Sollten die Anzahl der ""S""-Unfälle die Zahl ""10"" _
übersteigen, dann bitte die ""S-Unfälle"" mehrfach über das Hauptmenü erfassen.", vbQuestion, "Frage vom Schmausi"
TextBox1.BackColor = RGB(255, 0, 0)
TextBox1 = ""
ElseIf TextBox1 >= 0 Or TextBox1
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Fehler
Zahl = CDbl(TextBox1.Value)
If TextBox1.Value = 0 Then
Exit Sub
ElseIf TextBox1.Value Format(Zahl, "#") Then
TextBox1.Value = 0
MsgBox "Nur ganze Zahlen verwenden! ""VU -S- gesamt"" wurde auf ""0"" gesetzt!", vbCritical, " _
Gruß vom Schmausi"
End If
Exit Sub
Fehler:
End Sub
Für die Hilfe meiner Problemlösung bin ich Euch Dankbar
Gruß vom Schmausi