Jedoch wird mit u.a. Code die Zahl 12,22 immer als 12,00 übertragen.
Was muß hier geändert werden?
Gruß Reinhardt.
Sub test()
Dim e, f, g
Dim h As Integer
e = "Einzelpreis (Format: 0,00) "
f = "Anteiligen Preis eintragen "
g = "0"
h = InputBox(e, f, g, 9000, 7000)
Range("G8") = h
End Sub