VBA: Formatierung TextBox als Zahl
07.04.2015 12:28:43
Lorena
ich benötige Hilfe bei einem Problem mit einer UserForm bzw. mit den Textboxen darin.
Wird in die Textboxen eine Zahl oder 0 eingetragen, so soll diese in der Zelle M1 erscheinen. Wird nichts eingegeben, soll in der Zelle "tbd" eingetragen werden. Ich habe dies bisher so gelöst:
Private Sub CommandButton3_Click()
If TextBox7.Text = "" Then
Range("M1") = "tbd"
Else
Range("M1") = TextBox7.Text
End If
End Sub
Private Sub UserForm_Initialize()
Textbox soll gefüllt sein, wenn die User Form geöffnet wird
TextBox7.Text = Range("M1")
End Sub
Mein Problem ist nun aber, dass die Zahlen aus der Textbox nicht als Zahl, sondern als Text in die Zelle M1 übertragen werden. Es kommt der Hinweis Als Text gespeicherte Zahl. Da ich die Summe aus mehreren Zahlen bilden möchte, sollten die Daten aber automatisch als Zahl formatiert sein. Die Eingabe soll mit und ohne Komma sowie mit bis zu zwei Stellen hinter dem Komma möglich sein.
Gibt es dafür eine einfache Lösung? Ich habe schon ein wenig rumprobiert, aber das Problem blieb bei mir bestehen. Sobald ich eine Zahl mit zwei Stellen hinter dem Komma eingegeben hatte, kam wieder der Hinweis.
Ich hoffe auf Tipps, wie ich das Problem möglichst einfach lösen kann :)
Viele Grüße
Lorena
Anzeige