Wiedereinmal benötige ich eure Hilfe da ich nicht weiter komme!
Ich möchte eine Combobox ohne Duplikate befüllen, sodaß jeder Wert nur einmal darin aufscheint. Ich verwende dafür folgenden code (Teilweise aus der Recherche):
Private Sub UserForm_Initialize()
Dim col As New Collection
Dim iRow As Integer
Dim ws As Worksheet
Set ws = Sheets("Daten")
On Error Resume Next
For iRow = 2 To ws.UsedRange.Rows.Count
col.Add ws.Cells(iRow, 4), ws.Cells(iRow, 4)
If Err = 0 Then
CB.AddItem ws.Cells(iRow, 4)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
End Sub
Leider ist die Combobox beim Aufrufen der Userform leer!
Was mache ich falsch, Danke für eure Hilfe
Thomas H.