Thema: Inputbox | Herbers Excel-Forum

Hallo zusammen,
habe ein Problem. Möchte in einer Inputbox Dezimalzahlen eingeben. z.B. gebe in die Inputbox den Bezugspreis 2,583 Eur ein. Der rechnet bzw. eingetragen in "B36" wird aber mit 2583,00 EUR ein.
Bezugspreis = InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:")
Worksheets(1).Range("b36") = Bezugspreis
Worksheets(1).Range("h8:h19") = Bezugspreis
habe dann noch fürs makro definiert Dim bezugspreis as invariant. Aber es funktioniert nicht.
Vielen Dank für Tips.
Dani

Hallo,
so:
Bezugspreis = Application.InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:", , , , , , 1)
Gruß
Rudi

super. vielen Dank Rudi. Das klappt.
Habe eine weitere Fragen. Wenn ich einen falschen Bezugspreis eingebe und auf abbrechen gehe, möchte ich das alle nachfolgenden Inputbox - Abfragen auch abgebrochen werden?
Hast Du da einen Tip wie ich das machen könnte?
Viele Grüße
Dani

Hallo,
Bezugspreis = Application.InputBox("Bezugspreis bitte eingeben:", "Dateneingabe:", , , , , , 1)
If Bezugspreis = False Then Exit Sub
Gruß
Rudi

klappt einwandfrei.
Vielen Dank.
Dani