Folgende Frage:
Ich möchte doppelte Werte in einer ComboBox löschen. Wie bekomme ich das hin?
MfG Uwe
Private Sub UserForm_Initialize()
' Ein Collection-Objekt ist eine geordnete Folge von Elementen,
' auf die als Einheit Bezug genommen werden kann.
Dim Col As New Collection
Dim iZeile As Integer
Dim iLetzte As Integer
On Error Resume Next
iLetzte = Sheets(1).Range("A65536").End(xlUp).Row
If iLetzte "" Then ' keine leeren Zellen übernehmen
Col.Add Cells(iZeile, 1), Cells(iZeile, 1)
If Err = 0 Then
CboNamen.AddItem Cells(iZeile, 1)
Else
Err.Clear
End If
End If
Next iZeile
On Error GoTo 0
CboNamen.ListIndex = 0
End Sub
Gruß Peter
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen