Doppelte Zelleninhalte löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
und in deiner Datei gibt es noch diese Unstimmigkeit, hier 1 Bsp:
Nebenbilder
DV03_01334-DET-700-01.jpg,DV03_01334-PRP-700-01.jpg,DV03_01304-DET-700-01.jpg,DV03_01304-PRP-700-01.jpg,DV03_01328-DET-700-01.jpg,DV03_01328-PRP-700-01.jpg
Gewünschtes Ergebnis
DV03_01334-DET-700-01.jpg,DV03_01334-PRP-700-01.jpg
Im Gewünschten Ergebnis fehlen...
DV03_01304-DET-700-01.jpg,DV03_01304-PRP-700-01.jpg,DV03_01328-DET-700-01.jpg,DV03_01328-PRP-700-01.jpg
...aber die fehlenden Teile sind doch auch - nicht doppelte - Dateinamen.
Zeig bitte mal eine neue Bsp-Datei, die deinen Beschreibungen entspricht - oder erklär mir bitte, warum im Wunschergebnis 4 Einträge fehlen...sollen.
Auch ich bin ja nur begrenzt intelligent - und so könnte ja auch ich etwas falsch, bzw gar nicht verstanden haben :-)
Ciao
Thorsten

Sub Unit() Dim a As Long, b As Long, X As Variant, Y As Variant For a = 2 To Cells(Rows.Count, 5).End(xlUp).Row If Len(Cells(a, 5)) > 0 Then Y = "" If InStr(Cells(a, 5), ",") > 0 Then X = Split(Cells(a, 5), ",") Y = X(0) For b = 1 To UBound(X) If InStr(Y, X(b)) = 0 Then Y = Y & "," & X(b) Next Cells(a, 6) = Y Else Cells(a, 6) = Cells(a, 5) End If End If Next End Sub

Hi
Eine PQ-Lösung für interessierte Mitleser. Otto-Normalverbraucher darf natürlich auch, aber es erfordert eine Einarbeitung: https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/
https://www.herber.de/bbs/user/153051.xlsx
V1 = Standard-Variante Klick-Klick, langweilig ;)
V2 = Separate PQ-Funktion
Lesson-Learned: Die Input-Variable muss als "any" (Variant) und nicht als "text" (String) deklariert werden. Typ Text schluckt keine Null-Werte und die Funktion führt ganz grundsätzlich zum Error. Der Error lässt sich darum innerhalb der Funktion nicht mehr abfangen. Die Fehler könnte man zwar auch nachträglich ersetzen, aber eleganter, wenn man diese gar nicht erst entstehen lässt.


(Input as any) =>
let
Ergebnis = try Text.Combine(List.Distinct(Text.Split(Input, ",")),",") otherwise null
in
Ergebnis

V3 = ohne Funktion direkt eine benutzerdefinierte Spalte
try...otherwise entspricht quasi der Formel WENNFEHLER()


= try Text.Combine(List.Distinct(Text.Split([Nebenbilder], ",")),",") otherwise null

cu
Chris

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle	Formel
B1	=TEXTVERKETTEN(", ";1;EINDEUTIG(TEXTTRENNEN(A1;;",")))

	A	B
1	AAA.jpg,AAA.jpg,BBB.jpg,BBB.jpg,BBB.jpg	AAA.jpg, BBB.jpg

Doppelte Zelleninhalte löschen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread