Makro-Inputbox und Zahlenformat
11.04.2002 15:58:09
Selter
in einer Schleifenfunktion mit Abfrage von verschiedenen Zahlen bekomme ich Probleme bei der Formatierung von negativen Zahlen...
' Q Buchgewinn query
'Sheets("Tabelle2").Select
buchgew = InputBox("Netto-Buchgewinn: ", "Bitte eingeben / [Euro]")
buchgew1 = buchgew
Cells(i, 17).NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
Cells(i, 17) = buchgew1
Woran kann das liegen?? Bei Eingabe zB der Zahl 1000 wird diese korrekt dargestellt - also rechtsbündig und mit 1000er-Punkt.
Wenn ich aber -1000 eingebe, wird diese linksbündig und nicht rot dargestellt ...der Punkt fehlt auch.
Hilfe
Selter