Werte in einer Zelle bereinigen
06.01.2016 07:38:43
Sarah
ich habe momentan das Problem das ich verkettete Daten in einer Zelle bereinigen möchte.
Ich habe eine größere Datenmenge über die VBA-Funktion Verkettenwenn
Option Explicit
Public Function
Verkettenwenn(Bereich_Kriterium, Kriterium, Bereich_Verketten)
Dim mydic As Object
Dim L As Long
Set mydic = CreateObject("Scripting.Dictionary")
For L = 1 To Bereich_Kriterium.Count
If Bereich_Kriterium(L) = Kriterium Then
mydic(L) = Bereich_Verketten(L)
End If
Next
Verkettenwenn = Join(mydic.items, ", ")
End Function
zusammengefasst. Erhalte also folgendes Ergebnis
"Beispiel1, Beispiel1, Beispiel2,Beispiel2,Beispiel2, Beispiel3,Beispiel4".
Jetzt möchte ich aber in den jeweiligen Zellen nur eindeutige Werte haben sprich das folgedne Ergebnis:
"Beispiel1, Beispiel2, Beispiel3, Beispiel4"
Am liebsten wäre mir eine Bereinigung ohne VBA, bekom da aber auch mit VBA nicht auf eine Lösung. Könnte mir da vielleicht jemand weiterhelfen?
Vielen Dank im Voraus
Sarah