...hm...
jetzt kommen die "Zahlen" als lesbare und korrekt punktierte "Zahlen" an.
Excel teilt mir mit, dass diese "Zahl" ein Text ist.
Jedoch kann man mit diesen "Zahlen" nun Plus Minus usw rechnen. Aber keine Autosumme erzeugen.
Ich glaube wenn man es weiß sollte es gehen...
Kann ich nicht nachvollziehen, lade mal eine Beispielmappe hoch.
...ja, ich auch nicht... :20:
Grad mal ne Testmappe zu Hause gestrickt - klappt einwandfrei.
Muss ich mir morgen nochmal in Ruhe anschauen was da beim Original falsch läuft.
Vielen Dank nochmal.
Prüfe mal mit =ISTTEXT(A1) ob es sich wirklich um Text handelt. Falls ja und du dem Mysterium nicht auf die Spur kommst sollte
Range("A1") = Range("A1") * 1
helfen.
Ein weiterer Beweis für die Unsäglichkeiten von Userforms.
Des Rätsels Lösung:
in der Originaldatei hatte ich das so geschrieben :16:
Range("A1") = CDbl(UserForm1.TextBox1)
Range("A1") = TextBox1.Value
Jetzt stehen sie richtig herum und es funktioniert genau wie in meiner gestrickten Testmappe.
Range("A1") = TextBox1.Value
Range("A1") = CDbl(UserForm1.TextBox1)
Die Zellen als Zahl mit Tausender Trennung formatiert = perfekt.
Ich danke nochmals herzlich für die Hilfe.
Viele Grüße
Klaus
Aber dann ist ja völlig klar, wieso es nicht funktioniert hat
Code:
Range("A1") = CDbl(UserForm1.TextBox1)
Range("A1") = TextBox1.Value
macht folgendes:
Schreibe in A1 den Wert aus TextBox1, umgewandelt in eine Zahl
Schreibe in A1 den Wert aus TextBox1 als Text
Merkst du was?
...klar merk ich was:
ich muss noch viel lernen
:20:
Hast du auch die Lösung des Problems verstanden? Und nein:
Code:
Range("A1") = TextBox1.Value
Range("A1") = CDbl(UserForm1.TextBox1)
ist nicht die Lösung :21:
Bzw. nicht die dem Verständnis dienende Lösung.
hm...
ich vermute mal du willst auf das hinaus, was du eingangs schon erwähnt hast?
UF ist die schlechtere Wahl gegenüber der Verwendung eines normalen Tabellenblatts als Eingabemöglichkeit?
Zitat:UF ist die schlechtere Wahl gegenüber der Verwendung eines normalen Tabellenblatts als Eingabemöglichkeit?
Jetzt, wo du das so erwähnst... ja, tatsächlich!
Aber nein, darauf wollte ich nicht hinaus. Du hast zwei Anweisungen erstellt, was vollkommen unnötig ist. Es reicht einfach nur
Code:
Range("A1") = CDbl(UserForm1.TextBox1)
Deine zusätzliche Zeile kannst du getrost der AfD spenden. Die kennen sich mit sinnbefreiten Aussagen aus.