Office: Textboxe und Nachkommastellen

Hallo zusammen,

ich habe mehrere Textboxen in einer Userform in denen Zahlen mit Nachkommastellen stehen sollen. Diese Zahlen möchte ich per Set Befehl in bestimmte Zellen eintragen.

Hierzu konvertiere ich die Textboxen wie unten angeführt. Bei einer Abfrage mit IFNumeric, bekomme ich Numeric ausgeworfen.
Also wurde der Wert in der TB umgewandelt. Lasse ich die Umwandelung weg, oder schreibe Text in die TB, meldet IFNumeric auch Text zurück.

Dann schreibe ich den Wert aus TB 6 in eine Zelle via dem Set-Code. Das klappt auch gut, aber sobald ich eine Nachkommastelle in die TB6 setze, wird die Zahl wieder nur als Text übertragen in in der Zelle. Kann es sein, dass das am Set Befehl liegt?

Mit direkter Zuweisung des konvertierten Wertes in die Zelle kann ich leider nicht arbeiten.Der Set-Befehl ist leider unumgänglich.
Habe alles versucht...ohne Erfolg.

Hat einer eine Idee, woran das liegen könnte? Oder besser eine Idee?

Dank euch:-)

LG

Thomas

Code:

Code:

:)

 

Hallo


ich betreibe beim Eingeben von Werten in Textboxen, die nur Zahlenwerte aufnehmen dürfen, folgenden Aufwand im Formular:
Code:

Ich teste gerade noch, ob man das auch als Klassenmodul schreiben kann, dann braucht man die Routinen
nur einmal und nicht für jede Textbox, auf die der selbe Sachverhalt zutrifft.

Gruß von Luschi
aus klein-Paris

 

Danke für Deine Antwort.

Mit der Formatierung bin ich eigentlich zufrieden, nur das eben bei EIngabe von Nachkommastellen die Zahl beim übertragen alsText erkannt wird in der Zelle.

Ich vermute das es damit zusammenhängt, dass der SET Befehl sich auf das Objekt bezieht und die Formatierung auf dem Wert!?

LG

Thomas

 

Hallo Thomas,

Dim t(6) macht alle Elemente des Arrays zu Variantwerten. Da die Textbox immer Stringwerte (also Text) zurückliert, haben alle Elemente
des Arrays den Datentyp Variant-Text; also auch, wenn in der Textbox nur Zahlen und eventuell 1 Komma enthält.
Das kann man so überprüfen mit:
MsgBox VarType(t(1)) -> Rückgabewert ist 8 -> also String (siehe Vba-Hilfe)
Meine Rückgabe in die Excel-Zelle sieht ja so aus:
ActiveCell.Value = CDbl(Format(Me.TextBox1.Value, "#,##0.00")).
Da ich also knallhart den Inhalt der Textbox mit Hilfe der Umwandlungsfunktion Cdbl() in einen Double-Wert transformieren, muß ich bei der Eingabe
von Werten in die Textbox soviel Aufwand betreiben.
Der User muß daran gehindert werden, etwas anderes als Ziffern und max. 1 Komma einzugeben.
Nicht ganz verkehrt ist zum Schluß auch noch der Befehl:
Worksheets("Tabelle3").Cells(ab, i).NumberFormat = "#,##0.00"
denn nicht immer ist gewährleistet, daß Excel das Format richtig erkennt (besonders bei Datumswerten).

Gruß von Luschi
aus klein-Paris

 

Hi Thopmas,
schau mal in deinen anderen Thread
http://www.ms-office-forum.net/forum...d.php?t=281853
Da habe ich dir auch etwas zu den Konvertierereien und zum "Set" geschrieben.

Luschi hat dir gezeigt, wie du die Zahleingabe in einer TextBox prüfen kannst.

Jetzt alles klar?

 

Hi Luschi,
eine Bemerkung zu
ActiveCell.Value = CDbl(Format(Me.TextBox1.Value, "#,##0.00"))

Reicht das nicht aus?
ActiveCell.Value = CDbl(Me.TextBox1.Value)

Bei deiner Anweisung wird
- TextBox1.Value automatisch in eine Zahl umgewandelt, damit "Format" funzen kann
- aus der Zahl mit Format ein String gemacht
- aus dem String mit CDbl wieder eine Zahl gemacht
- die Zahl in die Zelle geschrieben
Wie die Zahl in der Zelle dargestellt wird, hängt nur vom Zahlenformat (NumberFormat) der Zelle ab.

Oder liege ich da falsch?