filteren en keuzelijst

[tonissteiner]

hallo heren,

iemand die een oplossing heeft voor mijn probleem?

 

[sylvester-ponte]

lees post 17
groet sylvester

 

[Warme bakkertje]

Een alternatief

Sub tst()
    Dim cUnique As Collection
    
    Set cUnique = New Collection
    
    On Error Resume Next
        For Each Cell In Sheets("Dagvergoeding").Range("C5:C40")
            cUnique.Add Cell.Value, CStr(Cell.Value)
        Next Cell
    On Error GoTo 0
    
    For I = 1 To cUnique.Count - 1
        For J = I + 1 To cUnique.Count
            If cUnique(I) > cUnique(J) Then
                cUnique.Add cUnique(J), , , I
                cUnique.Add cUnique(I), , , J + 1
                cUnique.Remove I
                cUnique.Remove J
            End If
        Next
    Next
    
    For Each cl In cUnique
        sq = sq & "," & cl
    Next
    
    With Sheets("Blad2").Range("A1").Validation
        .Delete
        .Add xlValidateList, , , sq
    End With
End Sub

 

[tonissteiner]

Rudi,

ook bij deze post, nogmaals bedankt voor je ongelofelijke hulp.

en voor alle andere codes in andere vragen die ik hier al plaatste

mvg