Eingabe von Werten in Textbox, unzulässige Werte
26.07.2013 00:45:09
Werten
ich hatte mich im Zusammenhang mit diesem Thema schon vor rund einer Woche an euch gewendet. Es ging darum, in eine Textbox zur Berechnung eines Barwertes nur die Eingabe von Werten -1000 zuzulassen und bei nicht zulässigen Werten eine Messagebox aufzurufen.
Ich habe in diesem Zusammenhang von Franz die folgenden Antwort mit dem folgenden nützlichen Code erhalten. Vielen Dank nochmal an dieser Stelle.
Private Sub InZinsänderung_Change()
With InZinsänderung
If .Value = "" Then Exit Sub
If Left(.Value, 1) = "-" And Len(.Value) = 1 Then Exit Sub
If IsNumeric(.Value) Then
a = Abs(CDbl(.Value))
End If
If a > 1000 Then
MsgBox "Die maximale absolute Zinsänderung beträgt 1000 BP.": .Value = ""
End If
End With
End Sub
Die Messagebox wird nur bei unzulässigen Werten aufgerufen. Leider erscheint jedoch keine Messagebox, wenn anstelle von Ziffern (bzw. "-" & Ziffern) Buchstaben in die Textbox eingegeben werden.
Leider konnte ich im Internet keine passende Antwort finden bzw. reicht man Wissen hierzu nicht aus.
Könnte mir eventuell jemand von euch einen Hinweis geben, wie ich den Code bearbeiten muss, sodass auch eine Messagebox bei der Eingabe von Buchstaben erscheint?
Ich wäre für eure Hilfe sehr dankbar. Vielen Dank schon einmal im Voraus und viele Grüße
Uli