Combo ohne doppel...
02.03.2005 21:44:40
Drazen
mit folgendem Code versuche ich Eiträge ohne doppel in eine Combo zu laden:
Private Sub LADEN()
Dim dol As New Collection
Dim aRow As Integer
aRow = 1
On Error Resume Next
Do Until IsEmpty(Cells(aRow, 27))
dol.Add Cells(aRow, 27), Cells(aRow, 27)
aRow = aRow + 1
Loop
For aRow = 1 To dol.Count
cboBestellung.AddItem dol(aRow)
Next aRow
cboBestellung.ListIndex = 0
End Sub
Code habe ich hier aus der Recherche, funktioniert in der Beispiel-Datei auch prima, nur bei mir nicht. Ich möchte die Daten aus Column 27 laden ohne Doppel, (im Beispiel wird aus der ersten Spalte geladen) und bei mir sind es Zahlen die geladen werden sollen und dort waren es Namen, wo ist mein Fehler?
Grüsse
Drazen