Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Aus der BspDatei häätest du die beiden UDFs ...
20.06.2017 19:33:23
Luc:-?
…mit diesen Namen herauskopieren sollen, Marcel!
Luc :-?
Anzeige

77 Forumthreads zu ähnlichen 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: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
Anzeige
Nach dropdown-Auswahl Zelle löschen
Michael

Hallo!
Folgendes Problem möchte ich gerne lösen: Nach der Auswahl über ein Dropdown-Feld ergibt sich eine bestimmte Zahl (hier: Anzahl von Personen). Dementsprechend verfärben sich ein paar Eingabefelder, in welche die Namen jener Personen händisch eingetragen werden.
Wenn nun diese Fe...
07.12.2010 06:25:45
Thread-ID: 1190332
3 Beiträge
sverweis soll Wort aus Zelle m.viel Wörtern finden
Susi

Hallo Ihr lieben Genies,
ich benutze folgenden sverweis
=SVERWEIS(C484;Bestand!M:AK;26;FALSCH) kommt aber Fehlermeldung #NV
Zwei Tabellen, Bestand und Verkäufe
in Tabelle Verkäufe steht in Spalte C zB (11/01-483)123pitang
so wie es da steht mit Klammern usw.
Diesen Wort...
03.02.2011 23:56:25
Thread-ID: 1198935
6 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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
1
5
6
2
5
8
8
4
15
4
1
2
7
6
2
3
13
2
13
8
12
10
6