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ßDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen