Text-Duplikate entfernen

[Mahadmakandis]

Hallo Mahadmakandis,
möglicherweise hast Du Leerzeichen oder nicht druckbare Zeichen in den zweistelligen Problemfällen. Versuche mal
      a1 = WorksheetFunction.Clean(Trim(Left(.Cells(zeile, spalte), j - 1)))
      a2 = WorksheetFunction.Clean(Trim(Mid(.Cells(zeile, spalte), j + 1)))
das Gleiche mit a3,a4. Wenn es nicht hilft, stelle mal eine Datei mit den Problemfällen ins Forum.
Gruß der AlteDresdner

Moin, es hat leider nicht bei mir funktioniert. Ich habe dir jetzt mal eine Datei angehängt. Dort habe ich jetzt noch kein Makro angewendet.
Du kannst ja auch einmal das alte und dann das neue ausprobieren.
Mit dem alten Makro solltest du bei 430 Zeilen landen. Es sollten aber 418 werden.
Die Duplikate befinden sich in Zeile 789-800 wenn die 1. Spalte sotiert ist.
Bisher konnte ich sie so per Hand löschen, super wäre aber wenn das Makro das selbstständig macht.

Beste Grüße,
MahadmaKandis

[AlterDresdner]

Hallo Mahadmakandis,

nun bin ich etwas ratlos. Aus Deiner Datei und dem anhängenden Makro DupKill (das nur kosmetisch verändert wurde), kommt als Ergebnis Forum...AD.xlsx mit letztem EIntrag in Zeile 418 raus. Und nu? Evtl. Startpunkt falsch gesetzt?
Gruß der AlteDresdner

[Mahadmakandis]

nun bin ich etwas ratlos. Aus Deiner Datei und dem anhängenden Makro DupKill (das nur kosmetisch verändert wurde), kommt als Ergebnis Forum...AD.xlsx mit letztem EIntrag in Zeile 418 raus. Und nu? Evtl. Startpunkt falsch gesetzt?
Gruß der AlteDresdner

Das verstehe ich auch nicht. Kannst du mir noch einmal den endgültigen Code mit den Verbesserungen schicken? Vielleicht habe ich beim Einfügen der Zeilen einen Fehler gemacht?
Bei mir hat er auch einen Fehler in der Zeile die mit a1 und a2 begint ausgegeben. Ich konnte dann "Beenden" oder "Debuggen".
Wenn du mir den Code noch einmal schicken könntest, würde das ja zeigen ob der Fehler beim Einfügen lag.

Beste Grüße

[AlterDresdner]

Hallo Mahadmakandis,
sollte eigentlich dabei sein, nun ist es dabei.
Gruß der AlteDresdner

[Mahadmakandis]

Moin,

nun habe ich das Modul sehen können.
Ist es so, dass wenn ich deine Datei öffne, ich das Makro auch in allen anderen offenen Excel-Dateien gleich benutzen kann?

Außerdem zeigt er mir jetzt den gleichen Fehler an.
Er fragt mich ob er in Zeile 1 Spalte 1 beginngen soll und meldet dann das:
Siehe Anhang


Wenn ich dann auf Debuggen klicke, springt er zur Zeile a1 und mariert diese Gelb. Wo liegt der Fehler?

[AlterDresdner]

Hallo Mahadmakandis,
der Fehler liegt vermutlich in der Wahl der 1. Zelle. Zur Erinnerung: Oberste Zelle in der Spalte mit dem 1. Vergleichswert markieren, dann Strg+Q drücken.
Mit dem Anhang sollte dieser Fehler bemerkt werden.
Deine andere Frage: Wenn Du DupKill geöffnet hast, kannst Du beliebig viele offene Dateien nacheinander bearbeiten, aber immer mit der oben angeführten reihenfolge (markieren, Strg+q). das Makro bezieht sich auf die Active ARbeitsmappe.
Gruß der AlteDresdner

[Mahadmakandis]

der Fehler liegt vermutlich in der Wahl der 1. Zelle. Zur Erinnerung: Oberste Zelle in der Spalte mit dem 1. Vergleichswert markieren, dann Strg+Q drücken.

Moin,

du hattest völlig Recht. Ich habe bisher nur Spalte 1, Zelle 1 markiert gehabt. Nun habe ich die gesamte Zeile 2 (Die den 1. zu vergleichenden Eintrag enthält) markiert und schon funktioniert es. Es dauert zwar eine ganze Weile aber das nehme ich gerne in Kauf.

Dann hat sich das Thema damit für mich erledigt und ich danke dir nochmal für deine Hilfe AlterDresdner

Beste Grüße,
MahadmaKandis