ComboBox
17.06.2003 22:38:17
Didi
mit folgenden Makro wird eine Liste ohne doppelte Werte in eine ComboBox eingelesen.
Meine Frage:
Wie kann ich gleichzeitig die eingelesenen Werte in der Combobox sortieren ??
Private Sub UserForm_Initialize()
Dim col As New Collection
Dim iRow As Integer
iRow = 7
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 1))
col.Add Cells(iRow, 1), Cells(iRow, 1)
If Err = 0 Then
Fehlerliste.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
Fehlerliste.ListIndex = 0
End Sub
Danke
Gruß Didi