Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Werte aus Array ausfiltern

Forumthread: Doppelte Werte aus Array ausfiltern

Doppelte Werte aus Array ausfiltern
04.01.2021 12:53:41
Marc
Hallo zusammen,
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Dictionary-Object
04.01.2021 13:08:42
Rudi
Hallo,
als Anregung

Dim objArrLst As Object
Set objArrLst = CreateObject("sripting.dictionary")
For lIndex = 0 To UBound(arrTemp)
objArrLst(arrTemp(lIndex, 9)) = 0
Next
arrTemp2 = objArrLst.keys

Gruß
Rudi
da fehlte ein c
04.01.2021 13:09:23
Rudi
Hallo,
als Anregung

Dim objArrLst As Object
Set objArrLst = CreateObject("scripting.dictionary")
For lIndex = 0 To UBound(arrTemp)
objArrLst(arrTemp(lIndex, 9)) = 0
Next
arrTemp2 = objArrLst.keys

Gruß
Rudi
Anzeige
AW: da fehlte ein c
04.01.2021 13:30:47
Marc
Hallo Rudi,
danke Dir für die schnelle Antwort, das versuche ich gleich. Nur eine Nachfrage, die Zeile 
objArrLst(arrTemp(lIndex, 9)) = 0

verstehe ich nicht. Kann das sein, das dies ein Tippfehler ist? Oder wie muss ich das verstehen?
Lg Marc
Anzeige
AW: da fehlte ein c
04.01.2021 14:07:47
Daniel
Hi
Ein Dictionary ist im Prinzip ein eindimensionales Array, bei dem der Index durch einen Beliebigen Freitext gebildet wird.
Der Index wird dann Key genannt.
Man erzeugt hier einen neuen Eintrag, indem man einfach dem Index einen beliebigen Wert zuweist.
Ist der Index schon vorhanden, wird der vorhandene Wert überschrieben, fehlt er, wird er neu angelegt.
Somit ist die Liste der Keys immer eindeutig und man verwendet diese gant gerne, um Duplikate zu entfernen.
Allerdings kann man hier nicht sortieren.
Ich würde an deiner Stelle das ursprüngliche arrTem in eine freie Stelle auf einem Excelblatt einfügen, dort sortieren und das Duplikate entfernen anwenden und dann wiedrr ins Array einlesen, wenn du die Liste sortiert und Duplikatfrei brauchst.
Gruß Daniel
Anzeige
AW: da fehlte ein c
04.01.2021 14:25:17
Marc
Hallo Daniel,
danke Dir, das war bisher die beste (resp. verständlichste) Erklärung für ein Dictionary, so verstehe ich das auch gleich besser.
Sortieren ist für mich zum Glück eigentlich unwichtig, ich hole die Daten vorher sowieso mit einer SQL-Abfrage aus einer Access-Datenbank, ich sortiere dies einfach bereits dort;-). Aber danke für den Tipp!
Anzeige
AW: da fehlte ein c
04.01.2021 14:20:30
Marc
Hallo Rudi,
nochmals danke, Du hast mir geholfen, mein Problem zu lösen. Auf Dictionary bin ich zwar auch bereits gekommen, aber speziell, dass man mit arr = obj.keys das Ganze in ein Array umfrachten kann, war mir nicht bewusst. Der Vollständigkeit halber (ev. hat ja mal jemand ein ähnliches Problem) anbei mein funktionierender Code:
Dim objArrLst       As Object
Set objArrLst = CreateObject("scripting.dictionary")
For lIndex = 0 To UBound(arrTemp)
If Not objArrLst.exists(arrTemp(lIndex, 9)) Then
objArrLst.Add arrTemp(lIndex, 9), lIndex
End If
Next
arrTemp2 = objArrLst.keys
Set objArrLst = Nothing
Lg Marc
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Werte aus einem Array in Excel VBA entfernen

Schritt-für-Schritt-Anleitung

Um doppelte Werte aus einem Array in Excel VBA zu entfernen, kannst du die Scripting.Dictionary-Klasse verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Deklariere die Variablen:

    Dim objArrLst As Object
Dim arrTemp As Variant
Dim arrTemp2 As Variant
Dim lIndex As Long

  2. Setze das Dictionary-Objekt:

    Set objArrLst = CreateObject("Scripting.Dictionary")

  3. Durchlaufe das Array und füge Elemente hinzu:

    For lIndex = 0 To UBound(arrTemp)
   If Not objArrLst.Exists(arrTemp(lIndex, 9)) Then
       objArrLst.Add arrTemp(lIndex, 9), lIndex
   End If
Next

  4. Konvertiere die Keys in ein neues Array:

    arrTemp2 = objArrLst.Keys

  5. Setze das Dictionary-Objekt zurück:

    Set objArrLst = Nothing

Häufige Fehler und Lösungen

  • Fehler: "Fehler beim Erstellen des Objekts"
    Wenn du diese Fehlermeldung erhältst, überprüfe, ob du die richtige Schreibweise für CreateObject("Scripting.Dictionary") verwendet hast. Ein Tippfehler kann zu Problemen führen.

  • Problem mit der .NET-Framework-Version
    Wenn dein ursprünglicher Code CreateObject("System.Collections.ArrayList") verwendet hat und nicht funktioniert, liegt das möglicherweise an der fehlenden .NET-Installation. Nutze stattdessen das Scripting.Dictionary.

Alternative Methoden

Wenn du keine Objekte verwenden möchtest, gibt es eine alternative Methode, um doppelte Werte zu entfernen:

  • Sortieren und Filtern in Excel: Du kannst die Daten in einer Excel-Tabelle sortieren und dann die Funktion "Duplikate entfernen" verwenden, bevor du sie zurück in dein Array lädst.

  • Verwendung von Excel-Formeln: Du kannst auch Excel-Formeln wie EINDEUTIGE (in neueren Excel-Versionen) verwenden, um direkt aus einem Bereich mit doppelten Werten zu arbeiten.

Praktische Beispiele

Hier ist ein Beispiel, das zeigt, wie du doppelte Werte aus einem Array in VBA entfernen kannst:

Sub RemoveDuplicates()
    Dim objArrLst As Object
    Dim arrTemp As Variant
    Dim arrTemp2 As Variant
    Dim lIndex As Long

    ' Beispiel Array mit doppelten Werten
    arrTemp = Array("A", "B", "C", "A", "B", "D")

    Set objArrLst = CreateObject("Scripting.Dictionary")

    For lIndex = LBound(arrTemp) To UBound(arrTemp)
        If Not objArrLst.Exists(arrTemp(lIndex)) Then
            objArrLst.Add arrTemp(lIndex), Nothing
        End If
    Next

    arrTemp2 = objArrLst.Keys
    ' arrTemp2 enthält nun die eindeutigen Werte
End Sub

Tipps für Profis

  • Verwendung von Arrays: Wenn du mit großen Datenmengen arbeitest, verwende Arrays statt Zellen, um die Performance zu verbessern.

  • Sortierung: Wenn die Reihenfolge der Elemente wichtig ist, solltest du darüber nachdenken, die Liste nach dem Hinzufügen der Elemente zu sortieren.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen einem Array und einem Dictionary in VBA?
Ein Array ist eine Sammlung von Elementen, die über einen Index angesprochen werden. Ein Dictionary hingegen speichert Paare von Schlüsseln und Werten, was bedeutet, dass du mit einem beliebigen Schlüssel auf einen Wert zugreifen kannst.

2. Kann ich das Scripting.Dictionary auch in Excel Online verwenden?
Nein, das Scripting.Dictionary ist nur in der Desktop-Version von Excel verfügbar. In Excel Online sind VBA und die entsprechenden Objekte nicht unterstützt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige