Doppelte Elemente in Array Löschen
20.06.2006 15:24:08
Thorsten
ich hab mir mal eine Funktion geschrieben die doppelte Elemente in einem Array löscht. Leider funktioniert die noch nicht ohne Fehler zu Produzieren.
Function DelTwice(VarArray As Variant)
Dim i As Integer, j As Integer
If Not IsArray(VarArray) Then Exit Function
For i = 0 To UBound(VarArray) - 1
If VarArray(i) = VarArray(i + 1) Then
For j = i To UBound(VarArray) - 1
VarArray(j) = VarArray(j + 1)
Next j
ReDim Preserve VarArray(UBound(VarArray) - 1)
End If
Next i
End Function
Ich bekomme ein "Index ist außerhalb des gültigen Bereichs" Meldung für die Zeile:
VarArray(j) = VarArray(j + 1)
Aufgerufen hab ich die Funktion so:
Call DelTwice(aCKunde)
Gruß Thorsten