Herbers Excel-Forum - das Archiv

Textfeld in Zahl umwandeln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
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
Excel-Beispiele zum Thema "Textfeld in Zahl umwandeln"
Freiraum am linken Rand von MS-FORMS-Textfeldern löschen Datumseingabe in Textfeld erzwingen
Textfelder in UserForm beim Start vorbelegen Werte aus einer UserForm-Textfeld-Serie in Arbeitsblatt
Im Textfeld nur Eingabe von 2 Ziffern zulassen, dann zum nächsten Bei Verlassen eines Textfeldes Prüfung, ob Datumseintrag
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen Abkürzungen umwandeln
URLs eines ausgewählten Bereiches in HyperLinks umwandeln Textstring in berechenbare Formel umwandeln