Office: (Office 2013) Doppelte Datensätze entfernen (Makro/VBA)

Servus,

ich habe ein Problem mit einer Makro Funktion. Ich möchte per Makro in einem Tabellenblatt doppelte Datensätze entfernen.
Die doppelten Datensätze werden anhand zweier Kriterien erkannt (Spalte 1 und 4).
Dabei habe ich dank Excel365 per RemoveDuplicates schon eine passable Lösung gefunden:

Problem ist, dass ich wie im Beispiel nicht die nachfolgenden Doppelten Löschen will, sondern den ersten Datensatz. Da dieser für die weitere Verwendung unnötig ist.

Danke euch schon mal für eure Hilfe!

Gruß

Dom

:)

 

Hallo,

schreibe in einer Leerspalte hinten den Zeilen aufsteigende Zahlen.
Sortiere den gesamten Bereich anhand dieser Spalte abwärts.
Entferne die doppelten.
Un sortiere wieder zurück.

 

Hä? Ich steh auf dem Schlauch. Wie würde das dann in dem Makro aussehen?

 

Moin Dominique,

wenn es doch Doppelte sind, ist es doch egal welche gelöscht werden?!

 

Servus,

leider nein. Wenn Spalte 1 und 4 eines Datensatzes gleich sind, habe ich sie als Doppelt definiert. Aber ab Spalte E sind die Zelleninhalte unterschiedlich. Beispiel: Zeile 3/4 Spalte G (2 zu 20).

 

Hi,

wie wird der erkannt? einfach nach diesem Kriterium zuerst sortieren.

@ Dirk da nur Spalte 1 und 4 verglichen wird gibt es höchst wahrscheinlich dennoch unterschiedliche Datensätzen. (z.B laufende Nr. oder Datum)

 

Hallo Chris,

die Daten sind aus einem SAP Export. Der Erste Datensatz ist immer eine Schätzung von Aufwänden für ein Projekt. Der Wert in den Spalten ab E sind dann Stunden. Da die "Schätzung" wird später mit einem neuen Datensatz mit realistischen Zahlen ergänzt. Somit ist im original Export immer der erste Datensatz (Schätzung) zu löschen, da ich ihn für die weitere Verarbeitung nicht mehr brauche.

Weiter Verarbeitung ist, dass ich die Daten dann in ein anderes Tabellenblatt kopiere und dort mit anderen Daten erweitere.

 

Hi,

gibt es den kein Feld mit Buchungsdatum/Zeit denn da würde ich einfach mal sortieren.

Könntest du einen Ausschnitt der Datei posten. (ohne personen- und firmenbezogenen Daten)
Wenn es kein Erkennungsmerkmal gibt baue ich dir die Sortierung wie von xlph vorgeschlagen in deinen Code ein.

 

Hallo,

du musst den Tabellen-CodeName noch anpassen.

Code:

 

\@Chris: Leider gibt es wirklich kein eindeutiges Identifizierungsmerkmal im Datensatz. Damit wäre es ja leicht gewesen...

@xlph: VIELEN DANK. Ich habe jetzt probiert deinen Code in meiner Beispieldatei anzuwenden. Aber ich habe Probleme den Tabellen-CodeName zu identifizieren. Ist der eine "Test"?

Sollte die Zeile dann lauten

 

Hallo,

oder du gibst den BlattNamen an...

Code:

 

Danke dir!

Es klappt perfekt. Nun baue ich es auf meine original Datei um.

Dazu hab ich noch eine oder zwei Fragen:

1. Der original Export hat mehr Spalten und die beiden zur Identifizierung der doppelten sind in 1 und 11. Ich habe dann einfach die 4er Werte gegen 11 getauscht.

War das korrekt oder lässt er dann was aus?

2. Ich importiere den Export in ein Tabellenblatt zuvor. Nun würde ich gerne nach dem Import die doppelten direkt löschen, bevor er auf das "Overview" Tabellenblatt zurückspringt. Ich habe versucht die Makros zusammen zu fügen. Da meldet er mir aber direkt einen Fehler. Wie könnte ich das sauberer machen?

 

Punkt 2 konnte ich bereits lösen, indem ich per Call in dem ersten Marko das neue von dir aufrufe und es funktioniert.

 

...damit sollte Punkt 1 auch gelöst sein.

 

Ja ist er damit! Danke dir vielmals!!!