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