Duplikate innerhalb einer Zelle löschen

Hallo liebe Community,
ich komme leider nicht mehr weiter und finde für mein Problem keine passende Lösung im Web.
Beschreibung:
In einer Arbeitsmappe gibt es eine Spalte "I", in der verantwortliche Rollen für Aufgaben in den Zeilen eingetragen sind.
Dabei kann es sein, dass für bestimmte Aufgabenbereiche dieselbe Rolle mehrfach in einer Zelle steht.
Beispiel:
Aufgabe: (Spalte A) Rolle: (Spalte I)
5 Onboarding VO-Obd, VO-Obd, Fachbereich xyz
6 Diagnose VO-Diag, VO-Diag, VO-Diag, Fachbereich xyz
Nun sollen alle Duplikate innerhalb einer Zelle gelöscht werden.
Aus dem Beispiel sollte folgendes resultieren:
Aufgabe: (Spalte A) Rolle: (Spalte I)
5 Onboarding VO-Obd, Fachbereich xyz
6 Diagnose VO-Diag, Fachbereich xyz
Ich wäre sehr dankbar, wenn mir jemand helfen könnte, hierfür einen passenden VBA-Code zu kreieren.
Vielen Dank im Voraus!
Viele Grüße
Max

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Dim a As Integer, C As Range, txt As Variant For Each C In Range("a2:a3").Cells txt = Split(C.Value, ",") If UBound(txt) > 0 Then For a = UBound(txt) To 1 Step -1 If InStr(txt(0), txt(a)) Then txt(a) = "," Next C = Replace(Join(txt, ","), ",", "") End If Next End Sub

Geht (unter Windows!) auch mit Excel 2013 per UDF:


Function Uniques$(Liste$)
Dim Arr: Arr = Split(Liste, ", ")
Dim i&
With CreateObject("scripting.dictionary")
For i = 0 To UBound(Arr)
If Not .Exists(Arr(i)) Then .Add Arr(i), Nothing
Next
Uniques = Join(.Keys, ", ")
End With
End Function

	A	B	C
1	Empfänger
2
3	XS FB/TPK, XS E-weit, XS E-weit, XS E-weit, extern	XS FB/TPK, XS E-weit, extern	XS FB/TPK, XS E-weit, extern
4	TypZul, TypZul, XS E-weit, XS E-weit, TypZul, XS FB/TPK, XS E-weit	TypZul, XS E-weit, XS FB/TPK	TypZul, XS E-weit, XS FB/TPK
5	XS E-weit, XS E-weit, XS E-weit	XS E-weit	XS E-weit
6	XS FB/TPK	XS FB/TPK	XS FB/TPK
7	XS E-weit	XS E-weit	XS E-weit
8	XS FB/TPK	XS FB/TPK	XS FB/TPK
9	XS FB/TPK	XS FB/TPK	XS FB/TPK
10	XS FB/TPK	XS FB/TPK	XS FB/TPK
11	XS E-weit	XS E-weit	XS E-weit
12	XS FB/TPK, XS FB/TPK	XS FB/TPK	XS FB/TPK
13	XS E-weit, XS E-weit	XS E-weit	XS E-weit
14	XS FB/TPK, FuV-OBD-FB/TPK, XS FB/TPK, XS E-weit, XS FB/TPK	XS FB/TPK, FuV-OBD-FB/TPK, XS E-weit	XS FB/TPK, FuV-OBD-FB/TPK, XS E-weit
15	TypZul	TypZul	TypZul

Zelle	Formel
B3	=TEXTVERKETTEN(", ";1;EINDEUTIG(TEXTTEILEN(A3;;", ")))
C3	=Uniques(A3)

Gruß Ralf

Beliebteste Forumthreads (12 Monate)

Duplikate innerhalb einer Zelle löschen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Duplikate innerhalb einer Zelle löschen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread