wir kann ich es bewerkstelligen, dass wenn ich eine Formel in die Textbox eingebe,
das Komma in einen Punkt umgewandelt wird.
Problem
1 x 2 = 2
1 x 2,2 = ebnefalls 2
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/131012.xlsm
Private Sub txtAuf_Formel_Change()
Dim str_formel As String
With Sheets("Tabelle1").Range("A1")
On Error GoTo Error
str_formel = Replace(UserForm1.txtAuf_Formel, ",", ".")
.Formula = IIf(Left(str_formel, 1) = "=", str_formel, "=" & str_formel)
UserForm1.txtAuf_Ergebnis.Value = Format(.Value, "#,##0.00##")
.Value = 0
End With
Exit Sub
Error:
'NIX
End Sub
Gruß