Collection und Komma Zahlen
04.10.2006 16:52:49
Bernd
Ich habe folgendes Problem:
Ich fülle eine Combobox mit den Werten aus einer Spalte mit der unten angegebenen Sub-Prozedur. Um doppelte Einträge in der Combobox zu verhindern benutze ich eine Collection. Das ganze funktioniert solange in der Spalte keine Kommazahlen (z.B. 0,8) stehen. Dann bleibt die Combobox leer. Bei Zahlen mit einem Punkt statt eines Kommas funktioniert es. Gibt es noch eine andere Möglichkeit als die die Kommas durch Punkte zu ersetzen?
Danke für alle Tips im voraus.
Private Sub combobox_fuellen()
Dim col As New Collection 'Collection um doppelte Einträge in der ComboBox zu verhindern
Dim irow As Double
On Error Resume Next
For irow = 2 To Worksheets("Tabelle1").UsedRange.Rows.Count
If ActiveSheet.Rows(irow).Hidden = False Then
col.Add Cells(irow, 1), Cells(irow, 1) '.Text
End If
If Err = 0 Then 'Pruefung ob Eintrag schon vorhanden
ComboBox1.AddItem Cells(irow, 1)
Else
Err.Clear
End If
Next irow
End Sub
Gruss Bernd
Anzeige