Wert aus ComboBox passt nicht
15.11.2006 16:09:00
Christian
ich verwende folgende Funktion:
Function cat(line As Integer)
'Definition of Parts
a = Worksheets("Mapping").ComboBox1.Value
b = Worksheets("Mapping").ComboBox2.Value
If (Cells(line, 6) > 0) Then
If (Cells(line, 8) >= a) Then
result = "A"
ElseIf (Cells(line, 8) >= b And Cells(line, 8) result = "B"
Else
result = "C"
End If
End If
cat = result
End Function
die Combox wird wie folgt initialisiert:
Private Sub Workbook_Open()
Worksheets("Mapping").ComboBox1.Clear
For i = 1 To 20
Worksheets("Mapping").ComboBox1.AddItem i / 20
Worksheets("Mapping").ComboBox2.AddItem i / 20
Next i
End Sub
Die Variablen a und b holen sich ihre Werte aus einer ComboBox. Allerdings habe ich hierbei ein Problem. Wenn ich die Werte bspw. von Hand auf a = 0.5 und b = 0.2 stelle, funktioniert alles einwandfrei. Werden die exakt gleichen Werte von der ComboBox uebergeben funktioniert es nicht mehr. Ich habe mir die Werte auch schon in Zellen ausgeben lassen. Sie sind exakt gleich. Hat das vielleicht irgendwas mit dem Format einer Combobox zu tun?
Durch die falschen Werte aus der Combobon laueft dann das ganze Makro falsch!
Viele Gruesse
Christian