Das Archiv des Excel-Forums

Formatierung Dezimalzahlen bei Combobox-Eingaben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Formatierung Dezimalzahlen bei Combobox-Eingaben
von: Ernst Zilliken

Geschrieben am: 25.07.2008 10:31:45


Hi
In einer Userform müssen einige Euro-Werte eingegeben werden.
Die Eingabe erfolgt wie folgt:
Sheets("Details").Activate
g = ActiveSheet.UsedRange.Rows.Count
With UserForm5.CboBoxStd
.RowSource = "Details!L3:L50"
End With
In dieser Datei 'Details' stehen die zur Eingabe vorgesehenen Werte einwandfrei formatiert zur Verfügung.
Nachdem die Daten eingegeben sind werden die Euro-Werte in eine Datenbank übernommen. Natürlich sind die Zellen in der Datenbank für diese Übertragung ebenfalls als Zahlen mit 2 Dezimalstellen formatiert.
Für die Übertragung sind folgende Anweisungen im Programm:


Private Sub CboboxStd_Change()
CboBoxStd.Value = Format(CboBoxStd.Value, "0.00")
End Sub


und anschließend:


Private Sub btnOK_Click()
Const c_wsBerichtName = "Details"
With Worksheets(c_wsBerichtName)
.Cells(4, 5).Value = Me.CboBoxStd.Value
End With
Unload Me
End Sub


Die Anweisungen für andere Übernahmen habe ich hier weggelassen, da sie Texte u.a. betreffen, die hier keine Rolle spielen.
Nachdem die Übernahme gelaufen ist mußte ich feststellen, dass die übernommenen Zahlen nicht addiert werden können, weil es einfach keine Zahlen sind sondern ein Text.
Die für die Übertragung benutzten Zellen sind korrekt für Zahlen formatiert.
Die übernommene Zahl steht in der Zelle - wie eben alle Texte - linksbündig und lässt sich logischerweise auch nicht addieren.
Kann mir jemand sagen wie ich dieses Dilemma ändern kann?
Vielen Dank schon mal und frdl. Grüsse
Laguna

Bild

Betrifft: AW: Formatierung Dezimalzahlen bei Combobox-Eingaben
von: Rudi Maintaire
Geschrieben am: 25.07.2008 10:46:27
Hallo,
.Cells(4, 5).Value = Me.CboBoxStd.Value *1
Gruß
Rudi

Bild

Betrifft: AW: Formatierung Dezimalzahlen bei Combobox-Eingaben
von: Ernst

Geschrieben am: 25.07.2008 11:38:59
Hi
Vielen Dank - Rudi - so einfach kann oft eine Antwort auf ein angebliches Riesenproblem sein.
Gruß Ernst

 Bild

Excel-Beispiele zum Thema "Formatierung Dezimalzahlen bei Combobox-Eingaben "

Automatische Datumformatierung unterdrücken download Zahlenformatierung mit Punkt nach der 1. Ziffer download
Unterschiedliche Schriftformatierung in Kopf-/Fußzeile download Jahreskalender und bedingte Formatierung download
Bedingte Formatierung auslesen download Über die bedingte Formatierung den Minimalwert markieren download
Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern download Bedingte Formatierung in Abhängigkeit eines Zellkommentars download
Markierung von Formeln über bedingte Formatierung download Zelleinträgen über die Formatierung Spaltennamen hinzufügen download
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen download Hyperlink-Formatierung bei Eingabe von Email-Adressen verhindern download
Tabellenvergleich über die bedingte Formatierung download Zahlen-Formatierungs-Dialog aus UserForm aufrufen download
Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft download Werte in Abhängigkeit zur Währungsformatierung summieren download
Bei TextBox-Eingaben Mustervergleich und Formatierung download Eine Reihe von Beispielen zum Feature "Bedingte Formatierung" download