Abs-Command, Error Type 13
18.07.2013 12:21:23
Ulrich
ich habe einen Code generiert, der einen absoluten Wert von kleiner 1000 als Eingabewert in eine Textbox zulassen soll. Leider kommt es dabei immer zu einer Fehlermeldung Type 13, wenn in die entsprechende Textbox ein Minus eingegeben wird.
Im Internet konnte ich leider keine Antwort auf meine Frage finden - ich würde mich daher freuen, wenn Ihr euch eventuell kurz mein Problem anschauen könnt. Vielen Dank schon einmal im Voraus.
Anbei der entsprechende Code:
Private Sub InZinsänderung_Change()
Dim a As Double
a = Abs(InZinsänderung.Value)
If a > 1000 Then
MsgBox "The absolut value should not exceed 1000"
End If
End Sub
Wenn ich die Funktion richtig verstehe, müsste sie mir den absoluten Wert wiedergeben und dieser Fehlermeldung dürfte nicht erscheinen?
Wisst Ihr vielleicht wie ich dieses Problem beheben kann, sodass der absolute Wert im If-Command verarbeitet wird und keine Fehlermeldung erscheint?
Viele Grüße
Uli