Übernahme von Komma aus DropDown
30.05.2005 09:38:58
Komma
habe eine kurze Frage:
Ich habe eine Tabelle erstellt, auf der sich ein DropDown-Feld befindet. In diesem DropDown stehen Wasserdichten (z.B. 1,005). Wenn ich im DropDown einen Wert anklicke erscheint dieser in Zelle B15. Allerdings wird dann in B15 nicht 1,005 angezeigt, sondern 1005,00. Habe folgende Codes in Gebrauch:
UM DAS DROPDOWN MIT COMMANDBUTTON ZU FÜLLEN:
Private Sub CmbDichte_Click()
Dim Dichte As Double 'Wasserdichte
Dim I As Byte 'laufende Zahl
CbDichte.Clear
For I = 0 To 35
Dichte = I + (I / 1000) 'Berechnung der Wasserdichten
CbDichte.AddItem (Format(Dichte, "0.000")) 'Laufende Dichte in das DropDown-Feld eintragen
Next I
End Sub
IM DROPDOWN:
Private Sub CbDichte_Click()
ActiveSheet.[B15] = CbDichte.Text
End Sub
Hoffe es kann mir jemand helfen...
MfG OceanAmerica
Anzeige