Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Doppelte aus Array löschen und sortieren

Gruppe

Vergleich

Problem

Aus einem Array sollen die doppelten Einträge gelöscht und das Array soll neu dimensioniert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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