Zeilen ausblenden wenn 2 Werte gleich

Hallo community,
dies ist mein erster Beitrag, deswegen bitte ein Auge zudrücken wenn Beschreibung nicht so ist wie gewünscht.
Zu meinem Problem: Ich habe eine Tabelle mit 5 Spalten, bei der Zeilen ausgeblendet (nicht gelöscht) werden sollen, bei denen die Werte zweier Spalten (A und D) identisch sind, mit den Einträgen in anderen Zeilen.
Beispiel:
A B C D E
Berlin Hase Inge Nelke Mars
Berlin Wolf Klaus Nelke Erde
Köln Bär Heinz Rose Erde
Aachen Igel Heinz Tulpe Venus
Aachen Igel Kurt Nelke Mars
Aschen Bär Inge Nelke Erde
Wien Reh Bert Rose Pluto
Gewünschtes Ergebnis:
A B C D E
Berlin Hase Inge Nelke Mars
Köln Bär Heinz Rose Erde
Aachen Igel Heinz Tulpe Venus
Aachen Igel Kurt Nelke Mars
Wien Reh Bert Rose Pluto
Für die drei restlichen Felder können die ersten Werte eingetragen werden die gefunden werden.
Habe es schon probiert mit:
ActiveSheet.Range("$A$1:$E$8").RemoveDuplicates Columns:=Array(1, 4), Header:=xlNo
Aber diese Zeilen werden dann wirklich gelöscht und können nicht wieder eingeblendet werden.
Kriege es nicht hin, aus dem RemoveDuplicates eine Art Ausblenden-Befehl zu generieren.
Hoffe ein VBA-Experte von Euch kann mir da evtl. weiterhlefen. Danke schön vorab!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Dim R As Range For Each R In Cells(1, 1).CurrentRegion.Rows R.Hidden = WorksheetFunction.CountIfs _ (Range("A1:A" & R.Row), R.Cells(1, 1), _ Range("D1:D" & R.Row), R.Cells(1, 4)) 1 Next End Sub

Sub Unit_2() Dim R As Range For Each R In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).EntireRow R.Hidden = WorksheetFunction.CountIfs _ (Range("A1:A" & R.Row), R.Cells(1, 1), _ Range("D1:D" & R.Row), R.Cells(1, 4)) 1 Next End Sub

Sub Unit_3() Dim R As Range For Each R In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).EntireRow R.Hidden = WorksheetFunction.CountIfs _ (Range("A1:A" & R.Row), R.Cells(1, 1), _ Range("D1:D" & R.Row), R.Cells(1, 4), _ Range("F1:F" & R.Row), R.Cells(1, 6)) 1 Next End Sub

Hallo Gerd,
vielen Dank - jetzt läuft's auch mit drei Feldern! Ich möchte nicht undankbar erscheinen, aber eine Frage/Bitte hätte ich noch:
Ich habe festgestellt, dass wenn zuvor Zeilen über den "normalen" Autofilter ausgeblendet wurden, diese nach dem Durchlauf Deines Makros wieder eingeblendet werden. Wäre das ein großer Akt, Dein Makro nur auf die sichtbaren Zeilen anwenden zu lassen? So könnte ich zuvor den Autofilter anwenden und anschließend mit Deinem Makro die mehrfachen Zeilen ausblenden. Aktuell hebt praktisch der Autofilter Dein Makro auf, und umgekehrt genauso.
Wenn's aber ein zu großer Aufwand wäre, dann könnte ich das auch so lassen wie es ist. Aber Du weißt ja, man will es immer optimieren wo es geht.
Schöne Grüße und danke vorab, Seppl

Sub test() Dim txt1 As String, txt2 As String Dim rngAusblenden As Range Dim Zelle As Range Dim Bereich As Range For Each Zelle In ActiveSheet.UsedRange.Columns(1).Cells txt1 = "|" & Zelle.Value & Zelle.Offset(0, 3).Value & "|" If InStr(txt2, txt1) = 0 Then txt2 = txt2 & txt1 Else If Bereich Is Nothing Then Set Bereich = Zelle Else Set Bereich = Union(Bereich, Zelle) End If End If Next Bereich.EntireRow.Hidden = True End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen ausblenden wenn 2 Werte gleich

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen ausblenden wenn 2 Werte gleich

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread