Private Sub TextBox7_Change()
If IsNumeric(TextBox7.Text) Then TextBox7.Text = Format(TextBox7.Text, "#,##0.00")
End Sub
das Problem was ich habe ist, dass ich bei der Eingabe die Nachkommastellen nicht in die TextBox schreiben kann.Das einlesen von der Tabellenzelle und bei Berechnungen wird das Format angenommen.