Office: Text Statt Zahl wegen Komma

Hallo liebe Gemeinde
Wer kann mir helfen?
Ich habe 2 Userformen. Die erste enthält Textboxen für die Eingabe von Werten, Diese werden in einer Tabelle gespeichert und in der 2. Userform über eine Listbox auf Mieter verteilt Werden.
In der 2. Userform sind Textboxen, die in die werte eingetragen werden, die individuell für Mieter anfallen.
Alle Werte werden in einer Tabelle gespeichert.
Die individuellen Werte sollen aus der tabelle ausgelesen
und in der Userfom 1 ausgegeben werden
_________________
With Worksheets("Tabelle2")
UserForm1.TextBox62.Value = Application.Sum(.Columns(33))
End With
__________________
Das klappt alles, solange des volle Bertäge sind. Sobald ein Komma in dem Wert steht, folgendes Problem:
Nach dem Speichern interpretiert Exel den zurückgegebenen Wert als Text.
Wie kann ich das verhindern??
Das gleiche geschieht, wenn ich die Beträge mit Punkt trenne. Alles ok bid zum speichern. Excel fügt für den Punkt ein Komma ein mit dem nicht zu rechnen ist
Was muss ich machen????
fragt verzweifelt
LEUCHTE

:)

 

Hallo!
In einer TextBox steht ... Text! :-)
Da VBA englisch kommuniziert (dies betrifft auch den Dezimaltrenner sowie das Tausendertrennzeichen), musst Du den Wert (.Value) der TextBox mittels CDbl(TextBox) in eine Fließkommazahl umwandeln.

Gruß Ralf

 

Hallo Ralf.
Vielen Dank für Deine schnelle Antwort. Das mit dem Unterschied zwischen Excel und VBA ist mir bekannt. Warscheinlich ist mein Problem nicht genau beschrieben.
Ich versuche es noch mal.
1.) Eingabe in TextBox z.B. 20,08 (mit Komma),
Speicherung in Excel (Spalte 35) als Text.
Dies wiederholt sich für jeden Mieter.
Diese Spalte soll als Summe in Userform1.TextBox62 mit
__________________________________
With Worksheets("Tabelle2")
UserForm1.TextBox62.Value = Application.Sum(.Columns(35))
End With
__________________________________
ausgegeben werden.
Kann aber, weil "TEXT" nicht funktionieren.
Gibt es hier eine Lösung ?????????

2.) Eingabe in TextBox z.B. 20.08 (mit Punkt),
Speicherung in Excel (Spalte 35) als Wert.
Dies wiederholt sich für jeden Mieter.
Diese Spalte soll als Summe in Userform1.TextBox62 mit
__________________________________
With Worksheets("Tabelle2")
UserForm1.TextBox62.Value = Application.Sum(.Columns(35))
End With
__________________________________
ausgegeben werden.
Funktioniert, Speicherung in Excel als Wert (mit Komma).

Bei Änderungen am Datensatz wird dieser vor der Änderung gespeichert und nach der Änderung zurückgeschrieben.
Dies geschieht auch von der Spalte 35. Jetzt jedoch mit Komma.
Bei einer weiteren Änderung am Datensatz wird dieser wieder in Excel gespeichert, - diesmal wieder als Text.

ERGEBNIS: Texte lassen sich nicht berechnen, also......
Wie kann ich die Anwendung ändern um ein Ergebnis zu bekommen mit dem man weiter rechnen kann?
Mir ist bekannt, das dies eine große Herausforderung ist, aber vielleicht hat ja ein Experte eine Lösung.
Es freut sich gespannt auf Antworten,
LEUCHTE

 

Moin,

da es sich wahrscheinlich um Währung handelt, bietet sich das schreiben in die Tabelle so an:
Code:

und (natürlich) ist die Eingabe in der Textbox mit Komma *Smilie . Dann wird auch glei das €-Zeichen (als Formatierung) mit eingefügt und ist dennoch eine Zahl.

 

Hallo Günther, zunächst mal Danke für Deine Mühe.
Währung = Euro ist richtig.
Leider funktioniert Dein Code nicht. Ich bekomme einen
Laufzeitfehler 13
"Typen unverträglich"
Hast Du (oder jemand anderes aus dem Forum) evtl. noch einen anderen Vorschlag. Ich komme nicht weiter :-(
Traurig grüßt
LEUCHTE

 

Hallo Leuchte,

spannend ist der Codeteil, mit dem Du die Werte von der TextBox in die Tabelle einträgst, denn hier entsteht offenbar der Fehler / die falschen Werte. Poste den doch mal bitte Deinen Code und eine Mustereingabe, die zum Fehler führt.

Beispiel (siehe Ralfs Tipp aus Beitrag #2 bzw. Günthers aus Beitrag #4):
Code:

In A1 steht der Inhalt der TextBox: Als Text, wenn die "Zahl" ein Komma enthält. Nur ausnahmsweise bei einer Ganzzahl wird die Zahl eingetragen.
In A2 steht der Inhalt der TextBox, umgewandelt in eine Zahl.
In A3 steht der Inhalt der TextBox, umgewandelt in eine Zahl (Währung).

Grüße
EarlFred

 

Moin,

da ich es vorher probiert habe: Dir ist schon klar, dass die "echte" Code-Zeile beispielsweise heißen muss:
Code:

wobei die Zeile angepasst wird. Ansonsten: Eine kleine Musterdatei hilft immer beim helfen ...

Ich habe mal eine kleine Datei angehängt, allerdings ohne Prüfung ob etwas in den Feldern drin steht, etc.

 

Hallo zusammen.
Leider kann ich zur zeit nicht an meinem "Projekrt" weiterarbeiten und eure Vorschläge einarbeiten. Wollte mich nur kurz melden, mich bedanken und sobald ich Zeit habe mein Ergebnis mitteilen und .....
Vorerst ganz herzlichen Dank
sagt
LEUCHTE

 

Hallo an alle "Helfer"
Vielen Dank, dass Ihr euch die Zeit zur Hilfestellung genommen habt. Mir halt es sehr geholfen. Besonders die Beispiele von EarlFred und GMG-CC haben mich mein Problem lösen lassen. Detaillierte, mit Hintegrund-erklärungen und Beispielen versehene Tipps bringen Anfänger(innen) wie mich weiter.
Dafür ganz herzlichen Dank sagt
LEUCHTE
PS: Welche Fachliteratur ist empfehlenswert für solche Tipps und Tricks???