Combobox to Range
01.11.2012 20:21:26
Ulf
da das mit dem Upload nicht klappt, versuche ich das Problem zu beschreiben.
Drei Zellen haben zusammen den Namen "Werte" jede ist Zahl mit 2 Dezimalstellen.
0,63
1,00
1,60
Eie weitere Zelle heißt "Ziel"
Zelle "Ziel" ist wie folgt benutzerdefiniert Formatiert:
#.##0,00 " m/s"
in einen Userform1 gibt es ComboBox1
mit RowSource Werte
Private Sub ComboBox1_Change()
If InStr(1, ComboBox1.Text, ",") >= 1 Then
strg_v = ComboBox1.Text
strg_v = Left(strg_v, InStr(1, strg_v, ",") - 1) & "." _
& Mid(strg_v, InStr(1, strg_v, ",") + 1)
End If
ComboBox1.Text = strg_v
'Range("Ziel") = Format(CSng(ComboBox1.Text), "0.00")
Range("Ziel") = CSng(ComboBox1.Text)
End Sub
Wähle ich in der Combobox 0,63 steht in der Zelle Ziel 63 m/s
Wo liegt der Haase im Pfeffer?
Ulf