negatives Zahlenformat in Textbox
01.07.2004 11:05:48
Susan
ich habe bei meiner Userform folgendes Problem:
in einem Textfeld möchte ich nur negative Zahleneingaben ermöglichen,
z.B. "-2.500".
mein Befehl lautet wie folgt:
Private Sub TBSum_8_Change()
Nur_Zahlen
[K_252000] = Str(TBSum_8)
TBSum_8 = Format(TBSum_8, "#,##0")
End Sub
Function Nur_Zahlen()
If Not IsNumeric(TBSum_8.Value) Then
TBSum_8 = 0
Else
End If
End Function
Jetzt kann ich in der Userform in diesem Textfeld nicht mit einem Minuszeichen beginnen (bricht Maktro sofort ab), sondern muss das Minuszeichen nach der Zahleneingabe vornehmen. Aber genau dass ist für den Anwender nicht verständlich und der User beginnt auf jeden Fall mit dem Minuszeichen.
Wie kann ich die Eingabe so verändern das das klappt?
Habe schon alles mögliche ausprobiert und bin fast am verzweifeln.
Würde mich freuen, wenn mir hierbei jemand helfen könnte.
Vielen Dank schon mal im voraus.
Susan
Anzeige