Doppelte Wörter in Zelle, wie entfernen ?

[sfina]

Hallo,

irgendwie ist mir gestern ein Fehler passiert.

Ich habe in vielen Zellen, plötzlich doppelte Wörter.

z.B

3 Bananen Affe Affe Baum
Lachte der Marc Marc den ganzen Tag
30 Kurven auf einer Bahn Bahn


Habt ihr eine Idee wie ich diese doppelten Wörter wieder entfernen kann ?

[Fennek]

Hallo,

als Idee für VBA:

- jede Zelle mit "split()" in einzelne Worte zerlegen
- mit einem Dictionary das doppelte Wort ermitteln
- das Doppelte einmal löschen

Da so ein Code zu schreiben relativ langen dauert, lohn sich das nur bei "vielen" Fällen.

Es gibt sicher auch alternativen.


mfg

[Elex]

Hey,

entfernt alle doppelte, evtl. auch gewollte. (der ..... der...)

Code:

=TEXTVERKETTEN(" ";WAHR;EINDEUTIG(TEXTTEILEN(WECHSELN(A1;ZEICHEN(160);"");" ");WAHR))

Gruß Elex

[sfina]

Hey,

entfernt alle doppelte, evtl. auch gewollte. (der ..... der...)

Code:

=TEXTVERKETTEN(" ";WAHR;EINDEUTIG(TEXTTEILEN(WECHSELN(A1;ZEICHEN(160);"");" ");WAHR))

Gruß Elex

Danke !!!
Es klappt einwandfrei :)))

[EA1950]

Hallo,

=REGEXREPLACE(WECHSELN(A1;ZEICHEN(160);" ");"\b(\w+)\s+\1\b";"$1")

entfernt aufeinander folgende Doppelwörter, nicht jedoch solche doppelt vorkommenden Wörter, die durch ein bzw. mehrere Wörter getrennt sind.
Ein Excel365-Insider wird vorausgesetzt.