Sub Test()
Dim vArr As Variant, sArr() As String, i As Integer
vArr = Worksheets("Vergabe nach VE").Range("E7:E40")
With CreateObject("System.Collections.SortedList")
For i = 1 To UBound(vArr)
If vArr(i, 1) <> "" Then
If Not .contains(vArr(i, 1)) Then _
.Add vArr(i, 1), vArr(i, 1)
End If
Next i
For i = 0 To .Count - 1
ReDim Preserve sArr(i)
sArr(i) = .GetByIndex(i)
Next i
Combobox1.List = sArr
End With
End Sub