Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Wörter in einer Zelle löschen

Forumthread: Doppelte Wörter in einer Zelle löschen

Doppelte Wörter in einer Zelle löschen
19.06.2017 15:51:09
Marcel
Hallo zusammen,
ich habe eine Spalte ca. 5000 Zellen mit jeweils vielen Begriffen. Alle Begriffe sind mit einem Leerzeichen getrennt. Dabei kann es vorkommen, dass in einer Zelle manche Begriffe doppelt vorkommen.
Die Frage ist nun, ob es eine Möglichkeit gibt Zellen in einem gewissen Bereich nach doppelten Wörtern zu durchsuchen und diese dann automatisch zu löschen?
Beispiel:
Zelle1: haus tisch haus -- haus tisch
Zelle2: haus haus tisch -- haus tisch
Zelle3: tisch frau tisch -- tisch frau
Zelle4: tür dame tür -- tür dame
Danke und Grüße
Marcel
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Wörter in einer Zelle löschen
19.06.2017 16:25:01
{Boris}
Hi Marcel,
teste mal (vorher die fraglichen Zellen selektieren):
Option Explicit
Sub DoppelteWeg()
Dim objDict As Object
Dim C As Range
Dim arr() As String
Dim i As Long
Const STR_TRENNER As String = " "
For Each C In Selection
arr = Split(C.Value, STR_TRENNER)
Set objDict = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(arr)
objDict(Trim(arr(i))) = 0
Next
C.Value = Join(objDict.Keys, STR_TRENNER)
Next
End Sub
VG, Boris
Anzeige
AW: Doppelte Wörter in einer Zelle löschen
19.06.2017 16:58:56
Daniel
Hi
da VBA-nein hier eine Lösung ohne VBA.
1. die Werte sollten in Tabelle1 Spalte A stehen, die Spalten daneben müssen frei sein (ggf in eine neue Tabelle kopieren)
2. Teile die Werte aus Spalte A mit der Funktion DATEN - DATENTOOLS - TEXT IN SPALTEN und dem Leerzeichen als Trennzeichen in mehrere Spalten auf
3. füge in einem zweiten Tabellenblatt in die Zelle A1 diese Formel ein: 
=GLÄTTEN(Tabelle1!A1&" "&WECHSELN(" "&B1&" ";" "&Tabelle1!A1&" ";" "))

ziehe diese Formel soweit nach rechts und nach unten wie benötigt.
in Spalte A der zweiten Tabelle steht das gewünschte Ergebnis.
Gruß Daniel
Anzeige
Mit VBA-basierten UDFs äußerst simpel, ...
20.06.2017 02:19:42
Luc:-?
…Marcel,
falls du so etwas anzuwenden verstehst und auch anwenden darfst, nämlich so: =VJoin(VSplit(A16);;-1)
Die beiden UDFs sind in folgd BspDatei zu finden: https://www.herber.de/bbs/user/99024.xlsm
Feedback nicht unerwünscht! Morrn, Luc :-?
Besser informiert mit …
Anzeige
Danke allen - Lösung(en) gefunden!
20.06.2017 08:26:14
Marcel
Hallo zusammen,
danke für die vielen Antworten!
@Boris: funktioniert super - danke!
@onur: auch Deine Lösung klappt prima - danke!
@Daniel: Funktioniert sicher auch aber mit den Lösungen von Boris und onur (VBA in ein Modul kopieren bekomme ich hin) komme ich schneller ans Ziel. Trotzdem danke, auch für die Aufmerksamkeit! ;)
@Fennek: Danke, aber Lösungen von Boris und onur funktionieren.
@Luc: Danke auch Dir für die Mühe aber ich muss ehrlich sagen, dass ich die Datei nicht wirklich verstanden habe. :/
Viele Grüße
Marcel
Anzeige
Aus der BspDatei häätest du die beiden UDFs ...
20.06.2017 19:33:23
Luc:-?
…mit diesen Namen herauskopieren sollen, Marcel!
Luc :-?
;

Forumthreads zu verwandten Themen

Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Anzeige
Werte bis zum ersten ; in Zelle löschen
Helmut

Hallo Forenuser,
ein kleines Problem:
Wie kann ich alle Zeichen bis zum ersten Strichpunkt in einer Zelle löschen?
Also:
200;3AB;5V
soll werden:
3AB;5V
Oder:
0-3400;8ZU;9;9
soll werden:
8ZU;9;9
Danke im Voraus!
LG, Helmut
10.05.2010 14:12:57
Thread-ID: 1156436
8 Beiträge
Werte bis zum ersten ; in Zelle löschen
Helmut

Hallo Forenuser,
ein kleines Problem:
Wie kann ich alle Zeichen bis zum ersten Strichpunkt in einer Zelle löschen?
Also:
200;3AB;5V
soll werden:
3AB;5V
Oder:
0-3400;8ZU;9;9
soll werden:
8ZU;9;9
Danke im Voraus!
LG, Helmut
10.05.2010 14:25:02
Thread-ID: 1156441
2 Beiträge
doppelte und leere Zellen entfernen
Günther

Hallo zusammen,
Spalte A ist mit Namen (Buchstaben), Werten (Zahlen) und Leerzellen gefüllt (A1:A200)
Nun möchte ich erreichen, dass diese in Spalte B (ab B1) kopiert bzw. gefiltert werden
und zwar so, dass Leerzellen und doppelte Einträge gelöscht werden, (also nicht nur
ausgeb...
24.05.2010 22:22:09
Thread-ID: 1158591
6 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
Wert aus Zelle nach löschen übernehmen
mike49

Hallo zusammen,
ich habe ein kleines Löschen-Makro aufgezeichnet, das auch so funktioniert.
Ich möchte es nun so erweitern, dass der Wert aus Zelle J45 nach dem Löschen nach J6 übernommen _ wird. Wie müsste dann das Makro lauten? Sub Löschen() ' Löschen Makro Range("E7:H42").Select Se...
25.03.2012 10:39:52
Thread-ID: 1256421
9 Beiträge
Untersuche ob Wort aus einer Spalte in der Zelle
CHristian

Guten Abend! Vermutlich leicht zu lösen aber ich habe schon sehr lange nicht mehr mit Excel gearbeitet.....
DIe Aufgabe die ich lösen muß ist wie folgt:
In Zelle B5423 steht ein Text der überprüft werden soll - nach folgenden Kriterien:
WEnn irgendwo im Text der Zelle B5423 eine...
09.01.2013 20:51:57
Thread-ID: 1293553
9 Beiträge
Doppelte Werte in Zelle löschen
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem mit doppelten (kommaseparierten) Werten in einer Zelle meiner Exceltabelle. Ich hoffe Ihr könnt mir zur Lösung des Problems einen Tip geben! :)
Ein Beispiel: Zelle A1=8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,14726,1472...
23.01.2013 09:35:13
Thread-ID: 1295552
5 Beiträge
Anzeige
Wörter aus Zelle in separate Zellen schreiben
Markus

Hallo an alle,
ich habe ein kleines Problem und hoffe, Ihr könnt mir weiterhelfen:
Ich habe eine Tabelle, die in Spalte K nur Text enthält.
Der Text besteht dabei aus einzelnen Worten, die jeweils durch ein Komma und ein Leerzeichen getrennt sind (z.B.: auto, haus, garten, ...)....
24.01.2013 19:43:00
Thread-ID: 1295896
16 Beiträge
Doppelte Werte aus einzelnen Spalten löschen
DerStudent

Hallo Zusammen,
es gibt zwar viele Beiträge zum Thema “doppelte Daten löschen“ aber ich finde nichts zu meinem Problem.
Nun zum Problem:
Ich habe eine Tabelle mit jeweils doppelten Werten in Spalte F und G.
Die Doppelten Werte in Spalte A&B oder c sind O.K. und gewollt.
...
18.03.2013 21:08:57
Thread-ID: 1304636
5 Beiträge
Doppelte Werte in Zellen löschen
pitt

Hallo zusammen,
In Spalte 4 soll nach doppelten Werten gesucht werden und so wie in Spalte 5
dargestellt ausgegeben werden, dabei sollen die Inhalte der nebenstehenden Zeilen aber nicht gelöscht werden.
In der Realität hat die Tabelle ca. 15 Spalten und ca. 10000 Zeilen.
Habe da...
28.03.2013 17:13:30
Thread-ID: 1306388
2 Beiträge
Anzeige
Nur ausgeblendete Zellen des Bereichs löschen
Tobi

Hey ich hab da nochmal ne Frage,...
ich habe über den Makrorekorder aufenommen, dass bestimmte Zellen durch ein Formularsteuerelement gelöscht werden.
Kann ich hier in den Code einbauen, dass nur Zellen die zum derzeitigen Zeitpunkt Ausgeblendet sind gelöscht werden (es sind immer unte...
18.12.2013 11:39:36
Thread-ID: 1342970
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Wörter in einer Zelle löschen

Schritt-für-Schritt-Anleitung

Um doppelte Wörter in einer Zelle in Excel zu löschen, kannst Du eine VBA-Lösung oder eine Formel verwenden. Hier sind die Schritte für beide Methoden:

VBA-Methode:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Option Explicit
Sub DoppelteWeg()
    Dim objDict As Object
    Dim C As Range
    Dim arr() As String
    Dim i As Long
    Const STR_TRENNER As String = " "
    For Each C In Selection
        arr = Split(C.Value, STR_TRENNER)
        Set objDict = CreateObject("Scripting.Dictionary")
        For i = 0 To UBound(arr)
            objDict(Trim(arr(i))) = 0
        Next
        C.Value = Join(objDict.Keys, STR_TRENNER)
    Next
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Wähle die Zellen aus, die Du bearbeiten möchtest.

  6. Drücke ALT + F8, wähle DoppelteWeg aus und klicke auf Ausführen.

Formel-Methode:

  1. Stelle sicher, dass die Werte in Spalte A deiner Tabelle stehen.

  2. Teile die Werte aus Spalte A mit Daten - Datentools - Text in Spalten und wähle das Leerzeichen als Trennzeichen.

  3. Füge in ein benachbartes Feld die folgende Formel ein:

    =GLÄTTEN(Tabelle1!A1 & " " & WECHSELN(" " & B1 & " "; " " & Tabelle1!A1 & " "; " "))

  4. Ziehe die Formel nach rechts und unten, um alle Zellen zu bearbeiten.

Häufige Fehler und Lösungen

  • Fehler: Die VBA-Methode funktioniert nicht.

    • Lösung: Stelle sicher, dass Du die richtigen Zellen ausgewählt hast, bevor Du das Makro ausführst.

  • Fehler: Die Formel zeigt #WERT! an.

    • Lösung: Überprüfe, ob die Zellen, auf die Du verweist, tatsächlich Daten enthalten.

  • Fehler: Doppelte Wörter werden nicht entfernt.

    • Lösung: Stelle sicher, dass Du die Formel oder das Makro korrekt angewendet hast. Überprüfe die Eingabewerte auf unerwartete Leerzeichen.

Alternative Methoden

Eine weitere Möglichkeit, doppelte Wörter in Excel zu finden und zu entfernen, ist die Verwendung von Excel-Add-Ins oder externen Tools wie RegEx. Diese Tools bieten oft erweiterte Funktionen, um doppelte Wörter zu identifizieren und zu löschen.

Praktische Beispiele

  • Beispiel 1: Wenn Du die Zelle A1 mit dem Inhalt "haus tisch haus" hast, wird die Anwendung der VBA-Methode oder der Formel das Ergebnis "haus tisch" liefern.

  • Beispiel 2: In der Zelle B1 mit "tisch frau tisch" wird nach der Bereinigung nur "tisch frau" angezeigt.

Diese Beispiele zeigen, wie effektiv die Methoden sind, um doppelte Wörter zu entfernen und die Daten zu bereinigen.

Tipps für Profis

  • Regelmäßige Bereinigung: Nutze die VBA-Methode regelmäßig, um Deine Datenbank sauber zu halten.
  • Makros speichern: Speichere Deine Makros in einer personalisierten Arbeitsmappe, um sie schnell wiederverwenden zu können.
  • Testen: Teste Deine Formeln und Makros zunächst an einer kleinen Datenmenge, um sicherzustellen, dass sie wie gewünscht funktionieren.

FAQ: Häufige Fragen

1. Wie kann ich doppelte Wörter in einer Zelle automatisch löschen? Mit der VBA-Methode oder der bereitgestellten Formel kannst Du doppelte Wörter in einer Zelle automatisch entfernen.

2. Gibt es eine Möglichkeit, doppelte Wörter ohne VBA zu entfernen? Ja, Du kannst die Text-in-Spalten-Funktion und eine passende Formel verwenden, um doppelte Wörter in Excel zu löschen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige