Liste Ohne Duplikate mit verschmolzenen Kriterien

Hallo Herber Fans,
ich arbeite an einer Methode, über VBA eine Liste ohne Duplikate zu erzeugen, die auf Grundlage von zwei Kriterien erfolgt, die für die Ausgrenzung der Duplikate über & oder Union verschmolzen werden sollen. Die Liste ohne Duplikate soll dann jedoch wieder mit separaten Werten erstellt werden. Ich habe zwei mögliche Ansätze identifiziert und so weit wie möglich realisiert. Aber es haut noch nicht hin.
Ausgangsbasis sind im Tabellenblatt Filterwerte die beiden in getrennten Spalten stehenden Parameter. Diese sollen zeilenweise verschmolzen werden, und dann ohne Duplikate, aber doch wieder getrennt auf ein anderes Blatt kopiert werden.
Ich wollte mit dem Advanced Filter und der Union eines Ranges arbeiten, aber das hat nicht geklappt. Er kopiert zwar einen Wert ohne Duplikate, aber nur unter Berücksichtigung der Werte in Spalte A und leider noch mit 0 Werten.
Der zweite Ansatz über eine Schleife verschmilzt die jeweils beiden Kriterien zeilenweise, aber das CountIf mit einer Union(Range(test),Range(Test2) habe ich nicht realisieren können.
Ich habe schon alle möglichen Hilfequellen abgegrast, jedoch keinen Ansatz gefunden, der mir bei der Problemlösung helfen konnte.
https://www.herber.de/bbs/user/52623.xls
Geht dies überhaupt? Wie muß die Logik aussehen, um es über den (bei großen Bereichen schnelleren) Advanced Filter zu realisieren?
Vielen Dank für Eure Hinweise und Anregungen.
Grüße, Andreas Hanisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Arr() Dim i Dim Arr() Dim Position As Variant Dim Zl As Long Zl = 1 ReDim Arr(0) For i = 1 To [A65536].End(xlUp).Row Position = Application.Match(Cells(i, "A") & "," & Cells(i, "B"), Arr, 0) If IsError(Position) Then ReDim Preserve Arr(0 To Zl) Arr(Zl - 1) = Cells(i, "A") & "," & Cells(i, "B") Zl = Zl + 1 End If Next With Range("D1:D" & UBound(Arr)) .Value = Application.Transpose(Arr()) .TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True End With End Sub

Sub Arr() Dim i Dim Arr() Dim Position As Variant Dim Zl As Long Zl = 1 ReDim Arr(0) For i = 1 To [A65536].End(xlUp).Row If Cells(i, "A") 0 Then Position = Application.Match(Cells(i, "A") & "," & Cells(i, "B"), Arr, 0) If IsError(Position) Then ReDim Preserve Arr(0 To Zl) Arr(Zl - 1) = Cells(i, "A") & "," & Cells(i, "B") Zl = Zl + 1 End If End If Next With Range("D1:D" & UBound(Arr)) .Value = Application.Transpose(Arr()) .TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True End With End Sub

Hallo Marc,
das gute liegt so nah Danke, das hat funktioniert. Es hat sich aber leider noch ein Problem aufgetan. Ich möchte die Auflistung der gefilterten Daten erst in Zeile 2 beginnen lassen. Also habe ich jeweils in Range("D1 eine 2 eingesetzt. Nun startet die Auflistung auch bei D2. Aber sie schneidet den letzten zu filternden Wert (Test_166) ab. Wenn sie bei D1 startet listet sie korrekterweise Test_159 Test_166 auf. Bei D2 aber nur bis Test_165.
Ich habe schon an allen möglichen Parametern die meines Erachtens nach dafür verantwortlich sein könnten. Zugegeben es ist die erste Array Formel in dieser Komplexität, die ich sehe und ich kann mir noch keinen Reim darauf machen, was ich ändern muß, damit die Aufzählung in D2 startet und komplett durchläuft.
Wenn Du mir hier noch einen Tip geben könntest, wäre es perfekt. Dann würde ich die Formel auch besser verstehen können.
Auf alle Fälle schon einmal vielen Dank für Deine Unterstützung bis hier!!!
Grüße, Andreas

Beliebteste Forumthreads (12 Monate)

Liste Ohne Duplikate mit verschmolzenen Kriterien

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liste Ohne Duplikate mit verschmolzenen Kriterien

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

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread