Selecteren Cellen

[klaas123]

Hoi, ik heb de volgende vraag.

Ik heb een reeks waarden in cellen in de volgende vorm:

a78hj
k2uu3v
aabdne
1dkkf
34ijkk
wyquw
etc.

Is er een mogelijkheid om alleen de waarden zonder cijfers eruit te filteren

Alvast ontzettend bedankt voor de hulp

 

[Wigi]

Hoi

Ik heb deze functie geschreven om het aantal cijfers uit een cel te halen:

=SOMPRODUCT((CODE(DEEL(A1;RIJ(INDIRECT("1:"&LENGTE(A1)));1))>47)*(CODE(DEEL(A1;RIJ(INDIRECT("1:"&LENGTE(A1)));1))<58))

Je kan vervolgens met een Autofilter de juiste cellen selecteren. Evt. herschrijf je bovenstaande formule tot WAAR/ONWAAR, afhankelijk of het aantal cijfers al dan niet groter is dan 0.

Wigi

 

[klaas123]

Dank je Wigi, ik ga het meteen proberen.

 

[Marcel Servaas]

Is dit wat je bedoeld?

Public Function FncGetallenElimineren(TestStr As String) As String

Dim TestStrLengte As Long
Dim TestStrResult As String
Dim TestStrTeller As Long

TestStrLengte = Len(TestStr)

For TestStrTeller = 1 To TestStrLengte
    If IsNumeric(Mid(TestStr, TestStrTeller, 1)) = False Then
        TestStrResult = TestStrResult & Mid(TestStr, TestStrTeller, 1)
    Else
    End If
Next TestStrTeller

FncGetallenElimineren = TestStrResult

End Function