dim sourcearray(0 to 4) as myClass
dim targetArray() as myClass
 
'#### Array ohne Duplikate erstellen ####
 
For i = 0 To UBound(sourceArray())
'try
On Error GoTo catch
    If sourceArray(i).value <> sourceArray(i + 1).value Or _
       sourceArray(i).value <> sourceArray(i - 1).value Then
 
        'Element in array targetArray hinzufügen
        ReDim Preserve targetArray(0 To UBound(targetArray()) + 1)
        Set targetArray(UBound(targetArray)) = New myClass
        targetArray(UBound(targetArray)).value = targetArray(i).value
        targetArray(UBound(targetArray)).color = targetArray(i).color
    End If
 
catch: 'bei falschem array zugriff
    If i = UBound(sourceArray()) - 1 Then
       If sourceArray(i).value <> sourceArray(i - 1).value Then
 
        'Element in array targetArray hinzufügen
        ReDim Preserve noDupCards(0 To UBound(noDupCards()) + 1)
        Set targetArray(UBound(targetArray)) = New myClass
        targetArray(UBound(targetArray)).value = targetArray(i).value
        targetArray(UBound(targetArray)).color = targetArray(i).color
 
       End If
    End If
 
Next

LG,Robert