ich weiß, die Überschrift hört sich eher nach "Such doch mal!" an aber ich habe nichts gefunden :-(
Der Code soll den Inhalt einer Textbox als Zahl in mein Tabellenblatt übernehmen:
Private Sub cbo_Wert_Click()
If IsNumeric(TextBox2.Value) Then
ActiveSheet.Range("H29").Select
ActiveCell.Value = Val(TextBox2.Text) * 1
Unload Me
Else
MsgBox ("Bitte numerischen Wert eingeben! / Please enter numeric value!")
End If
End Sub
Löppt auch alles soweit und die Zahl im Textfeld wird auch zur Zahl. Nur sie wird immer als "Ganze" Zahl eingefügt. Bei Eingabe von 37,50 wirds eine 37 und bei 39,99 eine 39.
Habt ihr eine Idee woran es liegt?
Natürlich ist die Zellformatierung auf Zahl mit 2 Nachkommastellen eingestellt ;-)
Danke für die Hilfe im voraus und viele Grüße
Simon