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