getal zonder unieke cijfers selecteren

[nizinny1964]

Hoe kan ik uit een reeks getallen alleen de getallen selecteren die niet uit alleen unieke cijfers bestaan?

Dus als ik heb:

01234
12345
12234
34567
34789
01223

Dan moet ie getal 3 en getal 6 selecteren in de kolom.

 

[AHulpje]

Als kolom A de getallen (in tekstvorm) bevat:

Sub MarkeerDubbel()
    Dim rij As Long
    rij = 1
    Do While Cells(rij, 1) <> vbNullString
        tekst = Cells(rij, 1)
        i = Mid(tekst, 1, 1)
        j = Mid(tekst, 2, 1)
        k = Mid(tekst, 3, 1)
        l = Mid(tekst, 4, 1)
        m = Mid(tekst, 5, 1)
        If i = j Or i = k Or i = l Or i = m Or j = k Or j = l Or j = m Or k = l Or k = m Or l = m Then
            Cells(rij, 1).Interior.Color = vbRed
        End If
        rij = rij + 1
    Loop
End Sub

 

[JEC.]

Voor in de Voorwaardelijke opmaak. Werkt alleen in office 365

=LET(s;MID(A1;SEQUENCE(5);1);COUNTA(UNIQUE(s))<>ROWS(s))