Doppelte Werte aus Array ausfiltern
04.01.2021 12:53:41
Marc
zunächst allen mal ein gutes neues Jahr 2021!
Auch im 2021 brauche ich leider bereits wieder Eure Hilfe. Ich habe in einem bestehenden "Programm" bisher ein Array "arrTemp" erstellt, in dem aber leider doppelte Einträge vorkommen. Dieses Problem habe ich bisher erfolgreich mittels dem folgenden Code erledigt:
Dim objArrLst As Object
Set objArrLst = CreateObject("System.collections.arraylist")
For lIndex = 0 To UBound(arrTemp)
If objArrLst.Contains(arrTemp(lIndex, 9)) = False Then
objArrLst.Add arrTemp(lIndex, 9)
End If
Next
With objArrLst
.Sort
arrTemp2 = .ToArray
End With
Danach habe ich das neue Array "arrTemp2" (das ja nur Eindimensional ist) mit dem Array "arrTemp" verglichen und in einem neuen Ziel-Array (Dimensioniert wie arrTemp2) die Daten gespeichert. Das hat bisher wie gesagt funktioniert, nun bekomme ich aber plötzlich eine Fehlermeldung in der Zeile set objArrLst = CreateObject("System.collections.arraylist"). Meine Recherche scheint darauf hinauszulaufen, dass diese Funktion offenbar das .NET-Framework 3.5 voraussetzt, und offenbar hat unsere IT es für sinnvoll erachtet, dieses zu entfernen.
Jetzt bin ich auf der Suche nach einer ähnlich eleganten Lösung, ohne dass ich das bisher wunderbar funktionierende Progrämmchen komplett über den Haufen werden muss. Wer könnte mir da helfen? Danke im Voraus für Eure Bemühungen!
Lg
Marc