ich habe Zellen mit identischen Strings in derselben Zelle wie zum Beispiel:
Golf Golf Polo Golf -> gewünscht wäre Golf Polo
oder
2.0 2.0 1.6 1.8 1.6 -> gewünscht wäre 2.0 1.6 1.8
ich habe diese Frage gestern in einem englischen Excel-Forum gepostet und von einem Guru auch eine Antwort erhalten. Leider bringe ich die von ihm geschriebene Funktion in LibreOffice 4.3.5.2 nicht zum Laufen. Kann sich hier jemand erbarmen? Das wäre sehr freundlich. Ich glaube nicht, dass es schwierig ist, aber ich kann es nicht.
Code: Alles auswählen
Function Uniques(Text As String, Delimiter As String) As String
Dim X As Long, Data() As String
Data = Split(Text, Delimiter)
With CreateObject("Scripting.Dictionary")
For X = 0 To UBound(Data)
.Item(Data(X)) = 1
Next
Uniques = Join(.keys, Delimiter)
End With
End Function
Andreas