Dublettenprüfung über 400 Spalten hinweg, für jede Spalte einzeln

[robinmathar]

Hallo zusammen,

ich werde grade ein bisschen wahnsinnig mit Excel.

Ich habe eine Datei mit 423 Spalten, die ich jede für sich einzeln auf Dubletten prüfen will, bzw. die Dubletten entfernen will. Ich finde leider nur Tipps, wie das über den gesamten Auswahlbereich geht, aber nicht wie es funktioniert, wenn ich alle Spalten markiere und dann jede für sich auf Dubletten prüfen will.

Beispiel:

Spalte A:
Accounting
Enterprise Resource Planning
Accounting

Spalte B:
Accounting
Enterprise Resource Planning
Enterprise Resource Planning

Die normalen Prüfungen würden mir jetzt zweimal Accounting und zweimal Enterprise Resource Planning rausfiltern. ich will aber nur in Spalte A einmal Accounting und in Spalte B einmal Accounting raus haben.

Kennt ihr dafür irgendeinen Weg, außer in 423 Spalten (und ggfs. bei weiteren Dateien in noch mehr) klicken zu müssen?

Danke vorab und viele grüße,
Robin

[Fennek]

Hallo,

hier ein Beispiel mit wenigen Spalten, der Code sollte aber auch für beliebig viele laufen.

mfg

[robinmathar]

Hi Fennek,

danke für deine schnelle Hilfe.

In deinem Beispiel funktioniert der Code einwandfrei, in meiner Datei leider nicht. Ich habe die Datei einmal angehangen. In den ersten Spalten habe ich die Dublettenprüfung bereits durchgeführt, daran siehst du, wie es ungefähr aussehen würde.

Wenn es geht wäre nicht nur eine Markierung, sondern eine direkte Entfernung der Dubletten das aller beste!

Viele Grüße,
Robin

[WillWissen]

Hi Robin,

rechts möchte ein Button sooo gerne gedrückt werden. Zum Dank zaubert er dir dann deine Datei in den Beitrag. Wie er heißt? Ach so: Attachment hinzufügen

[robinmathar]

Das könnte durchaus helfen  :19:

[Fennek]

Der VBA-Code erwartet, dass die erste Zeile gefüllt ist. Versuche die Prüfung auf die zweite Zeile zu verschieben:

Code:

for i = 1 to cells(2, columns.count).end(xltoleft).column

ungeprüft

[robinmathar]

Hat geklappt, danke!

Jetzt muss ich nur noch alle markierten Zellen löschen, hast du da evtl. auch eine Lösung für?

[Fennek]

etwas präziser bitte.

Sollen

- alle Doppelten
- nur Version 2 - n

gelöscht werden.

[robinmathar]

Entschuldige bitte, es soll jeweils nur eine der beiden Dubletten gelöscht werden, sodass ein Wert erhalten bleibt.

[Fennek]

ok, heute wird das aber nichts mehr.

Versuche anlog zum gezeigten Makro mit dem Rekorder "Menü Daten: Duplikate entfernen" aufzuzeichnen. Dabei ist wichtig nur eine Spalte auszuwählen.