Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: TextBox mit Nachkommastellen

TextBox mit Nachkommastellen
29.05.2006 12:21:24
Sophie
Guten Tag!
In einer UserForm habe ich Eingabefelder (als TextBox), die mit dem Knopf "Übernehmen" in bestimmte Zellen der Excel-Tabelle geschrieben werden. Bei Zahlen ohne Nachkommastelle funkzioniert das. Wenn ich allerdings 4,65 eingeben will, schreibt VBA 5 in die Zelle rein. Ich habe das Gefühl, dass der TextBox als eine Zeichenfolge und nicht als Zahl gesehen wird.
Mein Code ist wie folgt:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Sheets("Input").Select
Range("D21").Select
i = TextBox1.Value
Range("D21").Value = i
Range("D22").Select
j = TextBox2.Value
Range("D22").Value = j
Me.Hide
End Sub

Für eine Nachricht wäre ich sehr dankbar!
LG
Sophie
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox mit Nachkommastellen
29.05.2006 12:41:58
Henning
Hallo Sophie,
kann es vielleicht daran liegen, daß Du "j" und "i" als "integer" definiert hast?
Versuch es doch mal mit "variant", vielleicht geht das !
Gruß Henning.
AW: TextBox mit Nachkommastellen
29.05.2006 12:43:52
Beni
Hallo Sophie,
Du hast i + j als Interger deklariert, Interger heist nur ganze Zahlen.
Gruss Beni

Private Sub CommandButton1_Click()
With Sheets("Input")
.Range("D21 = TextBox1.Value
.Range("D22" = TextBox2.Value
End With
Me.Hide
End Sub

Anzeige
AW: TextBox mit Nachkommastellen
29.05.2006 13:11:05
Sophie
Hallo Henning, Beni und u_!!!
Es funktioniert!!!!
Richtig cool!
Vielen lieben Dank. "Integer" war der Fehler!
Schönen Tag und LG,
Sophie
AW: TextBox mit Nachkommastellen
29.05.2006 12:55:02
u_
Hallo,
Ich habe das Gefühl, dass der TextBox als eine Zeichenfolge und nicht als Zahl gesehen wird.
Deshalb heißt es ja TextBox.
Die Variablen sind falsch deklariert und ohnehin überflüssig.

Private Sub CommandButton1_Click()
With Sheets("Input")
.Range("D21") = TextBox1 * 1
.Range("D22") = TextBox2 * 1
End With
Me.Hide
End Sub
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige