Wie entfernt man doppelte Zeichen oder Wörter aus einer Zeichenfolge in einer Excel-Zelle?
Beim Arbeiten mit Daten in Excel enthalten Zellen häufig wiederholte Zeichen oder doppelte Wörter – etwa bei benutzergenerierten Eingaben, exportierten Protokollen oder Produktcodes. Das Entfernen dieser Duplikate bereinigt Ihre Daten für präzisere Analysen, verbessert die Lesbarkeit und bereitet Zeichenfolgen optimal für die Weiterverwendung in anderen Systemen vor.
Dieser Leitfaden stellt mehrere Methoden zum Entfernen doppelter Zeichen oder doppelter Wörter innerhalb einer einzelnen Zelle vor. Sie können die am besten geeignete Lösung basierend auf Ihrer Excel-Version, Ihrer technischen Vertrautheit und der Art des Trennzeichens in Ihren Daten auswählen. Unabhängig davon, ob Ihre Daten einzelne Zeichen oder ganze Wörter enthalten, die durch Leerzeichen oder Satzzeichen getrennt sind, finden Sie unten einen praktischen Ansatz, den Sie verwenden können.
- Entfernen doppelter Zeichen oder Wörter mithilfe einer Excel-Formel (dynamisches Array)
- Entfernen doppelter Zeichen einer Textzeichenfolge mit einer benutzerdefinierten Funktion
- Entfernen doppelter Wörter, die durch Satzzeichen getrennt sind, mit einer benutzerdefinierten Funktion
Entfernen doppelter Zeichen oder Wörter mithilfe einer Excel-Formel (dynamisches Array)
Wenn Sie Microsoft 365 oder Excel 2021 (oder eine neuere Version) verwenden, können Sie dynamische Arrayformeln nutzen, um doppelte Zeichen oder Wörter aus einer Zelle zu entfernen – ganz ohne VBA. Mit Funktionen wie TEXTAUFTEILEN, EINDEUTIG, TEXTVERKETTEN und TEIL teilen, bereinigen und verknüpfen Sie Zeichenfolgen direkt in Ihrem Arbeitsblatt.
Diese Methode ist besonders empfehlenswert, wenn Sie auf Makros verzichten möchten, eine effiziente Lösung bevorzugen und mit den neuesten Formelfunktionen von Excel vertraut sind.
Vorteile: Aktualisiert sich sofort bei Änderungen an den Quelldaten, benötigt keine Makrofreigabe oder besondere Berechtigungen und lässt sich problemlos auf große Bereiche anwenden.
Nachteile: Funktioniert nur in Excel für Microsoft 365 oder Excel 2021 und neuer (nicht in Excel 2019 oder älteren Versionen).
So entfernen Sie doppelte Zeichen innerhalb einer Zelle (z. B. „banana“ → „ban“):
1. Wählen Sie die Zelle aus, in der das Ergebnis angezeigt werden soll (z. B. Zelle)B2 neben Ihrer Quellzelle A2), und geben Sie folgende Formel ein:
=TEXTJOIN("",,UNIQUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)))Diese Formel teilt den Inhalt von A2 mithilfe von TEIL in einzelne Zeichen auf, generiert sequenzielle Positionen mit ZEILE(INDIREKT(...)), extrahiert eindeutige Zeichen mit EINDEUTIG und fügt sie anschließend mit TEXTVERKETTEN wieder zu einer Textzeichenfolge zusammen.
2. Drücken Sie Enter. Das Formelergebnis zeigt die Zeichenfolge aus A2 mit entfernten doppelten Zeichen unter Beibehaltung der Reihenfolge an. Um denselben Vorgang auf weitere Zeilen anzuwenden, ziehen Sie den Ausfüllknauf nach unten, um die Formel entsprechend zu kopieren.
Hinweis: Falls ein #NAME?-Fehler angezeigt wird, unterstützt Ihre Excel-Version diese Funktionen möglicherweise nicht. Stellen Sie sicher, dass Sie Excel für Microsoft 365, Excel 2021 oder eine neuere Version verwenden.
Fehlerbehebung: Manchmal können zusätzliche Leerzeichen oder Satzzeichen das Ergebnis beeinträchtigen. Verwenden Sie in solchen Fällen GLÄTTEN oder TEXTAUFTEILEN mit zusätzlichen Argumenten, wenn Ihre Daten nicht konsistent formatiert sind.
Dynamische Arrayformeln halten Ihren Arbeitsablauf effizient und stets auf dem neuesten Stand – und vereinfachen die Datenbereinigung, ob bei einfachen oder komplexen Zeichenfolgenmustern.
Entfernen doppelter Zeichen einer Textzeichenfolge mit einer benutzerdefinierten Funktion
Wenn Sie einen Zellbereich mit Textzeichenfolgen haben und aus jeder Zelle doppelte Zeichen entfernen möchten – etwa „aabbcc“ in „abc“ umwandeln, wie unten gezeigt – hilft Ihnen eine benutzerdefinierte VBA-Funktion, dies schnell zu erledigen, insbesondere wenn Ihre Excel-Version keine erweiterten Arrayformeln unterstützt.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein. Platzieren Sie den Code möglichst am Anfang des Moduls, um Konflikte mit anderen eventuell vorhandenen Makros zu vermeiden.
VBA-Code: Entfernen doppelter Zeichen einer Textzeichenfolge in einer Zelle
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. Speichern und schließen Sie das VBA-Fenster nach dem Einfügen des Codes und kehren Sie zu Ihrem Arbeitsblatt zurück. Geben Sie in einer leeren Zelle neben Ihrem Originaltext (hier: =removedupes1(A2)) die Formel ein; A2 ist die Zelle, die die zu verarbeitende Zeichenfolge enthält. Siehe Abbildung unten:
4. Drücken Sie Enter, um das Ergebnis zu berechnen. Ziehen Sie den Ausfüllknauf nach unten, um die Funktion auf alle weiteren relevanten Zellen in der Spalte anzuwenden – und schon sind aus jeder betroffenen Zelle sämtliche doppelten Zeichen entfernt.
Tipp: Die Reihenfolge bleibt erhalten – die Funktion behält das erste Vorkommen jedes Zeichens und entfernt alle nachfolgenden Duplikate innerhalb der Zelle.
Vorsichtshinweis: Benutzerdefinierte Funktionen (UDFs), die über VBA hinzugefügt werden, stehen nur in der Arbeitsmappe zur Verfügung, in der der Code gespeichert ist. Wenn Sie Ihre Arbeitsmappe verschieben oder weitergeben, stellen Sie sicher, dass das Makro enthalten ist oder in der Zieldatei erneut eingefügt wird. Außerdem müssen Makros aktiviert sein, damit der Code ausgeführt werden kann.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Entfernen doppelter Wörter, die durch Satzzeichen getrennt sind, mit einer benutzerdefinierten Funktion
Wenn Ihre Daten aus Wörtern bestehen, die durch Satzzeichen wie Kommas, Semikolons oder andere Symbole getrennt sind, möchten Sie womöglich innerhalb jeder Zelle doppelte Wörter entfernen und nur das erste Vorkommen jedes Wortes behalten – besonders nützlich bei Schlagwortlisten, Kategorien oder Adressen. Diese Aufgabe erledigen Sie effizient mit einer maßgeschneiderten VBA-Funktion.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein. Platzieren Sie den Code nach Möglichkeit am Anfang eines neuen Moduls, um Übersichtlichkeit zu gewährleisten.
VBA-Code: Entfernen doppelter Wörter, die durch Satzzeichen getrennt sind, in einer Zelle
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. Gehen Sie nach dem Speichern und Schließen des VBA-Fensters zurück zu Ihrem Arbeitsblatt. Geben Sie in einer leeren Spalte neben Ihren Daten diese Formel ein:=RemoveDupes2(A2,","). Dabei bezieht sich A2 auf Ihre Zielzelle und "," gibt das Satzzeichen an, das als Trennzeichen verwendet wird. Sie können dieses Komma durch ein anderes Zeichen (z. B. „;“ oder ein Leerzeichen) ersetzen, falls Ihre Wörter durch ein anderes Trennzeichen getrennt sind.
4. Drücken Sie Enter, um die Eingabe zu bestätigen, und ziehen Sie die Formel anschließend nach unten, um die darunterliegenden Zellen entsprechend auszufüllen. Danach werden aus allen betroffenen Zellen die doppelten Wörter entfernt, sodass nur noch eindeutige Wörter in der ursprünglichen Reihenfolge verbleiben. Siehe Ergebnis unten:
Hinweis: In der Formel können Sie sowohl die Zellreferenz als auch das Satzzeichen-Trennzeichen entsprechend Ihren Daten anpassen. Falls mehrere Zeichen oder verschiedene Arten von Trennzeichen (z. B. eine Kombination aus Leerzeichen und Komma) verwendet werden, ist möglicherweise eine weitere Anpassung des Codes erforderlich.
Tipp: Wie bei allen VBA-Makros sollten Sie eine Sicherungskopie Ihrer Arbeitsmappe erstellen und sicherstellen, dass Makros aktiviert sind, um diese Funktion nutzen zu können.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins