Thema: Doppelte aus Array löschen und sortieren

StandardModule: Modul1

Sub DeleteDoubles()
   Dim col As New Collection
   Dim arr() As Integer
   Dim iCounter As Integer, iCount As Integer
   ReDim arr(1 To 13)
   For iCounter = 1 To 10
      arr(iCounter) = iCounter
   Next iCounter
   arr(11) = 3
   arr(12) = 5
   arr(13) = 6
   On Error Resume Next
   For iCounter = 1 To UBound(arr)
      col.Add arr(iCounter), CStr(arr(iCounter))
   Next iCounter
   On Error GoTo 0
   ReDim arr(1 To col.Count)
   For iCounter = 1 To col.Count
      arr(iCounter) = col(iCounter)
   Next iCounter
   For iCounter = 1 To UBound(arr)
      MsgBox arr(iCounter)
   Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich