Nachkommastellen verschwinden nach replace
15.02.2018 15:49:57
Christian
ich habe in einer UserForm5 eine Textbox10 in die ein Prozentwert eingetragen werden und anschließend dieser Wert in das Tabellenblatt "Pipeline" übertragen werden soll.
Damit ich umgehe, dass der Anwender neben der reinen Ziffer das Prozentzeichen eingibt und ich somit einen Wert in das Tabellenblatt mit Sonderzeichen übertrage, arbeite ich - aus einer älteren Empfehlung dieser großartigen Hilfegemeinschaft hier - mit replace.
Leider "verliere" ich dabei die Nachkommastellen. Gibt der Anwender 3,25 ein, landen nur 3,0 in meinem Tabellenblatt.
In den Code habe ich zum Testen Messageboxen eingefügt, damit ich erkennen kann, wo ich Nachkommastellen verliere:
Dim strZeile As String
Dim WertausAJ As String
Dim ZahlReplacedAJ As Integer
strZeile = 10
If UserForm5.TextBox10.Locked = True Then
.Range("AJ" & strZeile) = ""
End If
If UserForm5.TextBox10.Locked = False Then
WertausAJ = UserForm5.TextBox10.Value
MsgBox UserForm5.TextBox10.Value
ZahlReplacedAJ = Replace(WertausAJ, "%", "")
MsgBox ZahlReplacedAJ
.Range("AJ" & strZeile) = ZahlReplacedAJ / 100
End If
Hat jemand eine gute Idee?
Vielen Dank und viele Grüße
Christian