Matchen gegevens

[Blasphemious]

Graag had ik wat hulp gekregen bij het vervolledigen van mijn programma.

Doel: matchen letter + cijferwaarden (vb LOL123) uit verschillende kolommen.
Probleem: ook onvolledige reeksen zouden gematched moeten kunnen worden met hun waarschijnelijke "parnter." (vb A1 = LOL123, B1 = ??L123 )

Voorbeeld van de code:

'ingang a, uitgang b
Dim CompareRangeab As Variant, xab As Variant, yab As Variant, ia_ub As Integer
ia_ub = 0

Set CompareRangeab = Worksheets("registratieblad kwart 1").Range("D4:D608")


For Each xab In Worksheets("registratieblad kwart 1").Range("A4:A608")
    For Each yab In CompareRangeab
    If xab <> "" Then
        If xab = yab Then ia_ub = ia_ub + 1
       End If
    Next yab
Next xab

Ik had gehoopt dat het vervangen van de "=" door "Like" het probleem zou oplossen maar dit leek wat kort door de bocht.

Mijn VBA skills zijn gelimiteerd, dus als er idiote dingen in de code staan mag je mij hier uiteraard op wijzen...

Alvast bedankt voor jullie hulp!