Gruppe
Allgemein
Problem
Aus einem Array sollen die doppelten Einträge gelöscht und das Array soll neu dimensioniert werden.
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