Formatieren von Zahlen - Rückgabe in die Zelle
16.02.2007 13:08:38
Zahlen
ich möchte gern Zahlen in die Tabelle zurückschreiben. z. B. den Wert 26
In die Textbox wird eingetippt 26.
Die Textbox gibt für die Anwender zurück "26,00 " (wahrscheinlich als Text und nicht als Zahl).
Für den Anwender soll die Zahl inkl. Währungszeichen sichtbar sein.
Wenn in der Textbox nix drinsteht dann funktioniert das auch.
Sobald jedoch ein Wert drinsteht bekomme ich die Fehlermeldung "Laufzeitfehler 13"
Es steht dann folgender Wert in der Textbox "26,00 "
Für das Zurückschreiben in die Zelle nutze ich folgenden Code.
Private Sub textbox65_AfterUpdate()
If Not IsNumeric(Range("b11")) Then
MsgBox "Ihre Eingabe ist keine Zahl!"
Range("b11") = 0
Else
Range("b11") = TextBox65.Value * 1 'Hier knallt es.!!!!
End If
TextBox65 = Format(Range("b11"), "##,##0.00 ")
Range("b12") = Range("b11")
TextBox176 = Format(Range("b12"), "##,##0.00 ")
TextBox65.BackColor = &H80000005
End Sub
Wer kann mir sagen, wie ich den Code ändern muss, damit immer sauber in die Zelle zurückgeschrieben wird?
Danke im Voraus.
Viele Grüsse
selma