Oorspronkelijk geplaatst op:
In een rij staan in diverse cellen dubbele waarden. We willen echter alleen unieke waarden hebben. De functie zorgt er voor dat die dubbele waarden worden genegeerd en het resultaat in één cel wordt gezet waarbij de waarden door een komma worden gescheiden.
Function Dubbels(Target As Range, q As Boolean) As String
Dim rngCell As Range
Dim Resultaat As String
Resultaat = Empty
For Each rngCell In Target
If Not rngCell = Empty Then
If q = False Then
If Resultaat = Empty Then
Resultaat = rngCell
Else
Resultaat = Resultaat & ", " & rngCell
End If
Else
If InStr(Resultaat, rngCell) = 0 Then
If Resultaat = Empty Then
Resultaat = rngCell
Else
Resultaat = Resultaat & ", " & rngCell
End If
End If
End If
End If
Next rngCell
Dubbels = Resultaat
End Function