<code>ReDim x(1 To 7) As String
Dim i As Long
Dim u As Long
 
x(1) = "hallo"
x(2) = "du"
x(3) = "da"
x(4) = "bist"
x(5) = "du"
x(6) = "auch"
x(7) = "da"
 
<font color=green>' zunächst das Array sortieren</font>
QuickSort x()
 
<font color=green>' Jetzt alle doppelten Einträge entfernen</font>
u = 1
For i = 2 To UBound(x)
  If x(i) = x(u) Then
    x(i) = ""
  Else
    u = i
  End If
Next i
 
u = 0
For i = 1 To UBound(x)
  If x(i) <> "" Then
    u = u + 1
    If u <> i Then x(u) = x(i)
  End If
Next i
 
<font color=green>' Array-Größe neu festlegen</font>
ReDim Preserve x(u)</code>