Textfeld in Zahl umwandeln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: Textfeld in Zahl umwandeln
von: Simon
Geschrieben am: 22.04.2005 17:26:26
Hallo liebe Community,
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
Bild

Betrifft: AW: Textfeld in Zahl umwandeln
von: Herbert
Geschrieben am: 22.04.2005 17:45:45

Private Sub cbo_Wert_Click()
If IsNumeric(TextBox2.Value) Then
  [h29] = CDbl(TextBox2)
  Unload Me
Else
  MsgBox ("Bitte numerischen Wert eingeben! / Please enter numeric value!")
End If
End Sub

mfg Herbert
Bild

Betrifft: AW: Textfeld in Zahl umwandeln
von: Simon
Geschrieben am: 25.04.2005 13:47:20
Hallo Herbert,
vielen Dank für die schnelle Hilfe!
Das funktioniert super.
Darf ich aber noch fragen warum?
Wieso nimm er bei [h29] = CDbl(TextBox2) die Dezimalzahl
und bei Val(TextBox2.Text) * 1 nur die Ganzzahl?
Vielen Dank auf jeden Fall nochmals!
Gruß
Simon
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textfeld in Zahl umwandeln"