Der Code für ein allgemeines Modul:
Public Function Unikate(ByVal Bereich As Range) As String
'*************************
'Autor: Jürgen Hennekes
'*************************
Dim objDic As Object
Dim arr
Dim i As Long
Set objDic = CreateObject("Scripting.Dictionary")
arr = Bereich
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
objDic(arr(i, 1)) = 0
End If
Next
Unikate = Join(objDic.keys, ", ")
End Function
|
|||||||||||||||||||||||||||||||||||||||||||||||
