dim myarray() as MyClass
 
Public Sub makeArray()     'füllt ein array mit 52 Elementen
 
Dim counter As Integer
Dim i As Integer, j As Integer
 
ReDim Preserve myarray(0 To 51)
counter = 0
 
For i = 0 To 12
    For j = 0 To 3
        Set myarray(counter) = New MyClass
        myarray(counter).color= j
        myarray(counter).value= i
        counter = counter + 1
    Next
Next
 
MsgBox UBound(myarray()) '51
 
End Sub
 
 
Public Function removeColor(ByVal color As Integer) As Integer 
Dim removedElements As Integer      'alle Elemente mit bestimmter color aus dem 
' array entfernen
Dim i As Integer, j As Integer
 
removedElements = 0
 
For i = 0 To UBound(array())
 
    If myarray(i).color = color Then 'entferne index i aus myarray
            For j = i To UBound(myarray()) - 1 'i= delPos
 
 
                myarray(j) = myarray(j + 1)   'Fehlermeldung
 
            Next
            removedElements = removedElements + 1
 
    End If
Next
 
ReDim Preserve array(UBound(myarray()) - removedElements )
MsgBox UBound(myarray)
removeColor = removedElements 
 
End Function

myarray(j) = myarray(j + 1)

LG,Robert