Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Text-Duplikate entfernen
#21
(20.06.2016, 21:33)AlterDresdner schrieb: 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


Angehängte Dateien
.xlsx   Forum Text Duplikate.xlsx (Größe: 37,36 KB / Downloads: 2)
Antworten Top
#22
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
Gruß der AlteDresdner (Win11, Off2021)
Antworten Top
#23
(29.06.2016, 17:47)AlterDresdne schrieb: 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
Antworten Top
#24
Hallo Mahadmakandis,
sollte eigentlich dabei sein, nun ist es dabei.
Gruß der AlteDresdner
Gruß der AlteDresdner (Win11, Off2021)
Antworten Top
#25
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?


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#26
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


Angehängte Dateien
.xlsm   DupKill.xlsm (Größe: 16,43 KB / Downloads: 2)
Gruß der AlteDresdner (Win11, Off2021)
[-] Folgende(r) 1 Nutzer sagt Danke an AlterDresdner für diesen Beitrag:
  • Mahadmakandis
Antworten Top
#27
(01.07.2016, 17:54)AlterDresdner schrieb: 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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste