Duplikate löschen mit Bedingung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Mouna,
in dem Fall am einfachste und schnellste geht es mit Power Query (PQ):
_ eine Zelle innerhalb der Tabelle auswählen
_ unter "Einfügen", "Tabelle" anklicken oder Strg+t
_ im Reiter "Daten", "Aus Tabellen" anklicken
Jetzt bist Du im PQ-Editor.
_ Spalte Email markieren (auf dem Überschrift klicken) und aufsteigend sortieren
_ Spalte Gewinner markieren und absteigend markieren (PQ macht daraus eine zusammenhängende Sortierung, nicht 2)
_ Spalte Name und Email markieren (Email würde auch reichen)
_ Rechtsklick auf dem Spaltenüberschrift und Duplikate entfernen auswählen
_ im Reiter "Datei" Schliessen & laden.
Fertig.
Der Trick dabei ist, dass Duplikate entfernen immer der ersten Treffer behält.
Jetzt sehe ich, dass diese Vorgehensweise auch direkt in der Tabelle machbar wäre. Aber dann würdest du Daten vernichten. Mit PQ ist Ergebnis separat und wenn die Quelle sich ändert, brauchst Du nur auf die Ergebnistabelle mit Rechtsklick "Aktualisieren" und schon ist alles neubewertet.
VBA wäre hier aufwendiger. Wobei: die Schritte, die hier gemacht worden sind, ohne Power Query unter Makro-Rekorder machen (zuerst die x sortieren, dann die Email) und that's it.
VG
Yal

Sub Unit() Dim Z As Long For Z = 2 To Cells(Rows.Count, 1).End(xlUp).Row If WorksheetFunction.CountIfs(Columns(1), Cells(Z, 1), Columns(5), "x") > 0 Then If WorksheetFunction.CountIf(Columns(1), Cells(Z, 1)) > 0 And IsEmpty(Cells(Z, 5)) Then Rows(Z).Hidden = True End If End If Next End Sub

Hallo Mouna,
Gerd hatte wohl wenig Zeit.
Ich erkläre gern jemandem, der verstehen möchte:


For Z = 2 To Cells(Rows.Count, 1).End(xlUp).Row

man benutzt eine Variable Z, die mit der Wert 2 initialisiert wird und (weil nicht spezifiziert) pro Schleife um 1 erhöht wird, bis diese den Wert nach dem "To" erreicht wird (das weisst Du aber schon).
Nach dem "To" ist die Funktion "Cells()". Diese nimmt die Parameter Zeile und Spalte (klicke auf das Wort Cells und drücke Strg+F1. Dann gelangst Du auf die Online-Hilfe für Cells). Hier wird Cells mit der Zeile "Rows.count" gerufen, spricht die letzte verfügbare Zeile in deiner Excel-Blatt (Version abhängig, sollte in xl2019 1.048.576 sein). Spalte ist 1, also Spalte A.
Dann wird End(xlUp) daruf angewendet, dass den Strg+Pfeil nach oben simuliert. Es wird dann -von unten kommend- die erste befüllte Zelle in Spalte A genommen.
".Row": davon die Zeilenummer.
Man hätte auch Cells(999999, "A").End(xlUp).Row schreiben können. Ist gleichwertig.
An die 2 anderen Stellen, wo "Cells" verwendet wird, ist es dasselbe: Z ist die Zeilenummer, die durch die For-Schleife hochgeht, zweite Parameter ist die Spaltenummer.
So. Klugscheisser-Modus aus ;-)
VG
Yal

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

202 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Duplikate löschen mit Bedingung

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

202 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread