VBA: Punkte in Textbox entfernen

[Heinz]

Hallo zusammen,

ich habe eine Userform, in der sich mehrere Textfelder befinden. Auf der Userform befindet sich auch ein Button, mit dem die Werte aus den Textboxen in eine Tabelle geschrieben werden.
Die Textfelder werden folgendermaßen formatiert:

Code:

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Text) Then TextBox1.Text = Format(TextBox1.Text, "#,##0")
End Sub

Dies bewirkt eine automatische Punktsetzung bei großen Zahlen. Aus 56000 wird also 56.000 oder aus 513000000 wird 513.000.000 in der Textbox zur besseren Eingabe.

Wenn ich jetzt allerdings per Knopfdruck die Daten in die Tabelle übertrage, wird der Punkt als "," interpretiert, es wird also gespeichert: 56,000 oder 513,000000.

Wie würde nun eine Funktion lauten, die die Zahl in meinem Textfeld überprüft und die "." durch "" ersetzt? Habe es schon mit einer Replace-Funktion versucht, allerdings ohne Erfolg...

Vielen Dank schon mal!

[Werner.M]

Hallo Heinz,

z.B. so:

Code:

Range("A1") = Replace(Me.TextBox1, ".", "")

Gruß Werner