Ich habe eine USERFORM. Die Combobox fülle ich mit folgenden Code. Nun kommen aber in der Spalte die Ich aus der Excel Datei auslese, viele Einträge doppelt. ALso wenn in der Spalte 30 x "Super" drin steht dann zeigt die Combobox auch 30 mal "Super" an. Ich möchte aber das die Combobox jeden eintrag nur einmal aufzeigt. Danke
Dim z As Range
Dim sp As Range
Dim ersteAdresse As String
Dim AnzLeerZeilen As Long
ComboxProdArt.ListIndex = 0
LiBoxProdukt.Clear
With KompatibelHersteller
Set z = .Find(CB_Hersteller.Value, LookIn:=xlValues)
If Not z Is Nothing Then
ersteAdresse = z.Address
Do
LiBoxProdukt.AddItem (Worksheets("KompatibelListe").Cells(z.Row, 3).Value)
Set z = .FindNext(z)
Loop While Not z Is Nothing And z.Address ersteAdresse
End If
End With
With LiBoxProdukt
.ListIndex = 0 ' = ersten Eintrag auswählen.
End With