Filteren op aantal

[JeanPaul28]

je zal me die lijst op een of andere manier moeten bezorgen, zodat ik kan kijken wat er mis loopt

 

[Warme bakkertje]

Probeer het eens met deze.

Sub tst()

    Application.Calculation = xlManual
    sn = Blad1.Cells(1).CurrentRegion.Offset(1).Resize(, 1)
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        .RemoveAll
        For i = 1 To UBound(sn)
            If Not .Exists(sn(i, 1)) Then .Add sn(i, 1), 1
        Next
        
        With Blad1
            .Range("D2:D" & .Cells(.Rows.Count, 4).End(xlUp).Row).ClearContents
        End With
        Blad1.Cells(2, 4).Resize(.Count) = WorksheetFunction.Transpose(.keys)
    End With
    Application.Calculation = xlAutomatic
    
End Sub

 

[stagejoop]

Jean paul, kan ik je het bestandje anders even mailen?

 

[JeanPaul28]

dat kan stuur me een prive mail met je email adres