inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 16:54:07
Michael
Wenn ich Ganze ZAHLEN eingebe ist alles OK. Sobald ich zB. in der Inputbox die Zahl 32,4 eingebe, wird das in Feld d3 als Text ausgebeben. Gebe ich das mit einem Punkt ein, wandelt er es in eine Zahl um. Wie kann ich das umgehen. Wenn ich 32,4 eingebe, soll er dieses als Zahl in d3 auch erscheinen.
Vielen Dank
Gruß Michael
Sub MSGBOX2()
Dim eingabe As Integer
ActiveSheet.range("d1").Value = InputBox("Geben Sie eine Zahl ein", eingabe, range("d1"))
ActiveSheet.range("d2").Value = InputBox("Geben Sie eine Zahl ein", eingabe, range("d2"))
ActiveSheet.range("d3").Value = InputBox("Geben Sie eine Zahl ein", eingabe, range("d3"))
End Sub