ComboBox ohne doppelte Werte
10.09.2003 09:00:18
Lutz
ich habe 2 ComboBoxen, wobei der Inhalt der zweiten von der Auswahl in Combobox1 abhängig ist.
Der Wert der CB1 wird in ANT! Zeile3 gesucht und die in der gefundenen Spalte stehenden Werte in CB2 eingelesen (ohne doppelte).
Mein Problem: Es funktioniert nur bei den Spalten, in denen Text steht, bei Spalten mit Zahlen wird nichts in CB2 eingelesen.
Weiß jemand, woran das liegt ?
Danke im voraus
Lutz
Private Sub ComboBox1_Click()
Dim col As New Collection
cRow = [C65536].End(xlUp).Row
Set cb1 = Worksheets("ANT").Rows(3).Find(ComboBox1.Value, lookat:=xlWhole, LookIn:=xlValues)
cbCol = cb1.Column
For i = 5 To cRow
On Error Resume Next
col.Add Cells(i, cbCol), Cells(i, cbCol)
If Err = 0 Then
ComboBox2.AddItem Cells(i, cbCol)
Else
Err.Clear
End If
Next iZeile
End Sub
Code eingefügt mit Syntaxhighlighter 2.1