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

Array nach eindeutige Zeilen filtern

Forumthread: Array nach eindeutige Zeilen filtern

Array nach eindeutige Zeilen filtern
01.02.2021 12:53:05
Kay
Hallo,
nach dem Excel 365 so viele schöne Array Funktionen wie Filtern, Sortieren und Eindeutig besitzt, grübel ich nun, wie ich das auch einfach in VBA mit daten Array's schnell und effizient durchführen kann..
Ich lese eine Tabelle mit 1000 Zeilen ein. Das funktioniert ja am schnellsten, wenn ich der Variable in Excel bereits gesetzten Namensbereich zuordne.
Dim aDaten
Dim aDaten_relevant
aDaten = [MeinBereich] 'wie kann ich diesen Daten bereits gefiltert einlesen?
Jetzt möchte ich diese gefilterte Datenmenge nach eindeutigen Spaltenkombinationen wiederum filtern.
aDaten_relevant = Alle eindeutigen Kombinationen aus Spalte 1, 5, 9
Als Ergebnis sollte dann aDaten_relevant nur noch diese 3 Spalten mit eindeutigen Zeilen enthalten.
Was mir in Excel Dank Formelwerk ziemlich einfach gelingt, verschafft mir in VBA leider Kopfzerbrechen.
Vielleicht hat jemand ja einen Lösungsansatz, wie man Daten relativ einfach aus einem Datenbereich in Excel gefiltert und gruppiert über mehrere Spalten als eindeutige Zeilen in einen array einliest.
Danke und Gruß
Kay
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array nach eindeutige Zeilen filtern
01.02.2021 13:20:02
Daniel
Hi
früher konne man mit WORKSHEETFUNCTION.Function die Excelfunkionen auch innerhalb von VBA verwenden.
wenns darum ging, ganze Formeln direkt in VBA berechnen zu lassen, konnte man EVALUATE einsetzen mit 
Ergebnis = Evaluate("xxx")

wobei "xxx" der Formeltext in englischer Schreibweise mit A1-Zellbezügen sein muss
klappt das mit den neuen Funktionen nicht mehr?
Gruß Daniel
Anzeige
AW: Array nach eindeutige Zeilen filtern
01.02.2021 15:37:43
Kay
Hi Daniel,
super, das klappt ja blendend. Somit kann ich endlich die Daten effizient laden.
Unabhängig von dieser effizienten Lösung kann es ja mal sein, dass man in VBA Daten aus arrays filtern oder verdichten möchte, siehe wie oben beschrieben. Gibt es hierzu VBA Befehle oder geht man da wirklich Zeilen/Spalten durch so ein array dann durch und vergleicht die einzelnen Datenzellen?
Danke und Gruß
Kay
Anzeige
AW: Array nach eindeutige Zeilen filtern
01.02.2021 15:52:01
Daniel
Hi
schleifen über Arrays sind jetzt nicht so das Problem, die sind auch in VBA schnell genug, so dass man jetzt nicht für alles eine vorgefertigte Spezialfunktion braucht sondern sich auch mal selber was programmieren kann.
fürs Duplikate-Vermeiden kann man auch das Dictionary-Element verwenden (ein eindimensionales Array mit einem Freitext-Index)
Gruß Daniel
Anzeige
AW: Array nach eindeutige Zeilen filtern
01.02.2021 16:01:25
Rudi
Hallo,
z.B. 
Sub aaaa()
Dim objDic As Object, oObj
Dim a1, a2()
Dim i As Long, j As Long
Set objDic = CreateObject("scripting.dictionary")
a1 = Cells(1, 1).CurrentRegion
For i = 1 To UBound(a1)
objDic(Join(Array(a1(i, 1), a1(i, 5), a1(i, 9)), "|")) = 0
Next i
ReDim a2(1 To objDic.Count, 1 To 3)
For Each oObj In objDic
j = j + 1
a2(j, 1) = Split(oObj, "|")(0)
a2(j, 2) = Split(oObj, "|")(1)
a2(j, 3) = Split(oObj, "|")(2)
Next oObj
Worksheets.Add.Cells(1, 1).Resize(UBound(a2), 3) = a2
End Sub

Gruß
Rudi
Anzeige
AW: Array nach eindeutige Zeilen filtern
01.02.2021 16:54:13
Kay
Super - danke

Forumthreads zu verwandten Themen

Filter mit mehreren Kriterien
Kurt

Guten Morgen,
habe folge Filterung:
Selection.AutoFilter Field:=35, Criteria1:="D0"
ich möchte aber jetzt mehrere Filtern:
Selection.AutoFilter Field:=35, Criteria1:="00+99+B0,F0"
geht sowas ?
mfg
Kurt P
21.12.2010 09:25:38
Thread-ID: 1192306
12 Beiträge
Filterung nach mehreren Kriterien
Conelius

Hallo ihr VBA-Spezialisten
ich habe eine Tabelle bei der in Spalte A unterschiedliche Bezeichnungen eingetragen sind. Folgende Beispiele zu Beginn der Bezeichnung sind möglich:
M02_xy
M111_xyz
M3012_muster
M21a_test
Sie entsprechen also alle dem folgenden Platzhalter-Sch...
28.08.2015 16:19:39
Thread-ID: 1444903
2 Beiträge
Anzeige
Autofilter mit mehreren Kriterien
Mike

Hallo liebe Excelprofis....
ich versuche verzweifelt ein Problem zu beheben, komme aber nicht weiter.
Hier mal mein Problemchen, stark vereinfacht:
-Ich habe eine Tabelle mit zwei Blättern. "Kunde" und "Auswertung" (Der NAme des Blattes "Kunde" bezieht sich auf den Eintrag im Blatt...
07.02.2017 14:51:34
Thread-ID: 1539994
4 Beiträge
autofilter mit mehreren Kriterien
iris

Hallo,
ich habe in einem VBA einen Autofilter mit eingebaut:
Range("A1").Select
Selection.autofilter
ActiveSheet.Range("$A$1:$S$1000").autofilter Field:=1, Criteria1:="100000"
Cells.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Workbooks....
07.06.2017 16:48:43
Thread-ID: 1562762
2 Beiträge
Anzeige
AutoFilter mehrere Kriterien via Schaltflächen
Mat

Hallo Experten,
ich möchte den Autofilter gerne über Schaltflächen verwenden.
Dabei möchte ich beliebig viele Kriterien verwenden, ähnlich wie bei der manuellen Nutzung des Filters.
In der Beispieldatei habe ich ToggleButtons verwendet. Ich bekomme es aber leider nur hin, dass jewei...
02.10.2018 13:52:25
Thread-ID: 1649018
7 Beiträge
Gefilterte Liste mit mehreren Kriterien
Chris

Hallo Profis,
ich versuchen derzeit per Formel eine Tabelle auf eine gefilterte Liste zu reduzieren. Dabei habe ich bereits die Duplikate 'entfernt', würde aber nun noch ein zusätzliches Kriterium einbauen wollen.
Konkret, ich würde eine WENN-Funktion benötigen, welche nur Werte berücks...
31.10.2018 09:40:20
Thread-ID: 1654472
7 Beiträge
Gefilterte Liste mit mehreren Kriterien
Chris

Hallo Profis,
ich versuchen derzeit per Formel eine Tabelle auf eine gefilterte Liste zu reduzieren. Dabei habe ich bereits die Duplikate 'entfernt', würde aber nun noch ein zusätzliches Kriterium einbauen wollen.
Konkret, ich würde eine WENN-Funktion benötigen, welche nur Werte berücks...
31.10.2018 09:40:20
Thread-ID: 1654473
2 Beiträge
Gefilterte Liste mit mehreren Kriterien
Chris

Hallo Profis,
ich versuchen derzeit per Formel eine Tabelle auf eine gefilterte Liste zu reduzieren. Dabei habe ich bereits die Duplikate 'entfernt', würde aber nun noch ein zusätzliches Kriterium einbauen wollen.
Konkret, ich würde eine WENN-Funktion benötigen, welche nur Werte berücks...
31.10.2018 09:40:21
Thread-ID: 1654474
3 Beiträge
Gefilterte Liste mit mehreren Kriterien
Chris

Hallo Profis,
ich versuchen derzeit per Formel eine Tabelle auf eine gefilterte Liste zu reduzieren. Dabei habe ich bereits die Duplikate 'entfernt', würde aber nun noch ein zusätzliches Kriterium einbauen wollen.
Konkret, ich würde eine WENN-Funktion benötigen, welche nur Werte berücks...
31.10.2018 09:40:21
Thread-ID: 1654475
2 Beiträge
Anzeige
Gefilterte Liste mit mehreren Kriterien
Chris

Hallo Profis,
ich versuchen derzeit per Formel eine Tabelle auf eine gefilterte Liste zu reduzieren. Dabei habe ich bereits die Duplikate 'entfernt', würde aber nun noch ein zusätzliches Kriterium einbauen wollen.
Konkret, ich würde eine WENN-Funktion benötigen, welche nur Werte berücks...
31.10.2018 09:40:21
Thread-ID: 1654476
2 Beiträge
Anzeige
Autofilter mit mehreren Kriterien
Lukas

kann mir jemand hier helfen. der Filter funktioniert bei mir nicht! Er erkennt irgendwie meim Arry nicht.
wenn ich z.B.: criteria1:=arr1(1,1) schreibe dann funktioniert es!
'test
UserForm1.Controls("CheckBox" & 4).Value = True
UserForm1.Controls("CheckBox" & 6).Value =...
19.11.2018 11:22:59
Thread-ID: 1658147
32 Beiträge
Tabelle filtern nach mehreren Kriterien
Skeide

Hallo,
meine Tabelle enthält 7 Spalten und unterschiedlich viele Zeilen (mehrere Hundert) je nach Fall. Nun sind in Spalte B Werte von 0 bis 500 (in unterschiedlich großen Wertesprüngen), in Spalte C sind Werte von 0 bis 10 (in unterschiedlich großen Wertesprüngen)
Werte können auch dop...
23.11.2018 17:48:24
Thread-ID: 1659237
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Eindeutige Zeilen in Excel Arrays filtern

Schritt-für-Schritt-Anleitung

Um in Excel eindeutige Zeilen aus einem Datenarray zu filtern, kannst Du die folgenden Schritte befolgen. Diese Methode ist besonders nützlich, wenn Du die neuen Array-Funktionen von Excel 365 nutzt.

  1. Daten einlesen: Verwende VBA, um Deine Daten aus einem benannten Bereich einzulesen. Beispiel:

    Dim aDaten
aDaten = [MeinBereich]

  2. Eindeutige Kombinationen filtern: Nutze ein Dictionary-Objekt, um die eindeutigen Zeilen zu speichern. Beispielcode:

    Sub EindeutigeZeilenFiltern()
   Dim objDic As Object, oObj
   Dim a1, a2()
   Dim i As Long, j As Long
   Set objDic = CreateObject("scripting.dictionary")
   a1 = Cells(1, 1).CurrentRegion

   For i = 1 To UBound(a1)
       objDic(Join(Array(a1(i, 1), a1(i, 5), a1(i, 9)), "|")) = 0
   Next i

   ReDim a2(1 To objDic.Count, 1 To 3)
   For Each oObj In objDic
       j = j + 1
       a2(j, 1) = Split(oObj, "|")(0)
       a2(j, 2) = Split(oObj, "|")(1)
       a2(j, 3) = Split(oObj, "|")(2)
   Next oObj
   Worksheets.Add.Cells(1, 1).Resize(UBound(a2), 3) = a2
End Sub

  3. Ergebnis anzeigen: Das Ergebnis wird in einem neuen Arbeitsblatt angezeigt, mit nur den eindeutigen Zeilen aus den Spalten 1, 5 und 9.

Häufige Fehler und Lösungen

  • Fehler: "Typen-Inkompatibilität"
    Lösung: Stelle sicher, dass alle verwendeten Variablen korrekt deklariert sind. Beispielsweise sollten Arrays, die Du verwendest, die richtige Dimension haben.

  • Fehler: "Objekt nicht gefunden"
    Lösung: Überprüfe, ob der benannte Bereich korrekt definiert ist und sich auf die richtigen Daten bezieht.

Alternative Methoden

Wenn Du Excel 365 verwendest, kannst Du auch die Funktion EINDEUTIGE direkt im Arbeitsblatt nutzen. So kannst Du ohne VBA eindeutige Werte in mehreren Spalten filtern. Beispiel:

=EINDEUTIGE(A1:C100)

Diese Funktion ermöglicht es Dir, mehrere Kriterien gleichzeitig zu berücksichtigen und gibt die eindeutigen Zeilen zurück.

Praktische Beispiele

Angenommen, Du hast eine Tabelle mit Verkaufsdaten und möchtest die eindeutigen Kombinationen aus den Spalten für Produkt, Verkäufer und Region ermitteln. Verwende den oben beschriebenen VBA-Code, um die Daten zu filtern und die eindeutigen Kombinationen in ein neues Arbeitsblatt zu übertragen.

Tipps für Profis

  • Verwende immer ein Dictionary, wenn Du mit großen Datenmengen arbeitest, um die Leistung zu erhöhen, insbesondere wenn Du Duplikate vermeiden möchtest.
  • Bei komplexen Datensätzen kann es hilfreich sein, die Daten zuerst zu sortieren, bevor Du die eindeutigen Werte extrahierst.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Kriterien in VBA filtern?
Verwende ein Array, um die Kriterien zu speichern und vergleiche diese beim Durchlaufen der Daten.

2. Ist es möglich, die Ergebnisse direkt in eine bestehende Tabelle einzufügen?
Ja, Du kannst den Code so anpassen, dass die Ergebnisse in eine bestehende Tabelle eingefügt werden, anstatt ein neues Arbeitsblatt zu erstellen.

Beliebteste Forumthreads (12 Monate)

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