Vergelijk 2 kollommen met quasi dezelfde info

[T0mm]

ik dien 2 kollomen te vergelijken met elkaar, namen.
De namen zijn echter niet altijd correct geschreven, met met minieme verschillen, verdraaiïngen ... er zijn ook namen die in de ene lijst voorkomen en in de andere niet, die zou ik graag gefilterd willen...

Omdat het over een hele hoop gaat (over de 1000 stuks!) dacht ik dit automatisch met excell te doen.
nu vond ik al een mooi VB script dat me hierbij zou helpen (http://www.helpmij.nl/forum/showthr...en-vergelijken-verschillen-in-een-ander-kolom)

echter zit ik met het probleem dat de variable dus niet éxact dezelfde zijn.

voorbeeld:
LIJST1 --- LIJST2
tom thijs --- tom thys
Jan Vanden broeck --- Jan van den broecke
Ives deWinter --- Ives DeWinter
Erwin Segers --- Nina de man
Johan verminnen --- Johan verminnen
Degroot Jos --- Jos Degroodt


als uitkomst wil ik bekomen:

niet in lijst2:
Erwin Sergers

in lijst1 komt ongeveer overeen met lijst 2 op:
tom thijs tom thys
De groot jos jos degroodt

-is het mogelijk een vergelijking uit te voeren met bvb een ding tussen elk karakter een % (zodat hier fouten kunnen in staan);
dat em is alles omdraaid (geval tom van dillen - van dillen tom van)
...

u ziet de problemtiek waarmee ik zit in het voorbeeld.
het betreft 2 verschillende ledenlijsten dit noodzakelijk tot 1 dienen te komen om eindelijk eens orde opzaken te stellen.

wie mij kan helpen is een held!

Alvast bedankt...

 

[Thoralf]

Hallo Tom,

Kijk eens hier, waar een soortgelijke vraag aan de orde is geweest.
Het is op dit moment zeker nog geen oplossing, maar het geeft je denk ik wel even wat meer inzicht.

Voor diegenen die ook te maken krijgen met een Fatal error voor het aanklikken van de link:
Hier betreft de discussie Excel bestand controleren op het excel vragenforum van Worksheet.nl

 

[Cobbe]

Heb iets voor u dat toch al een zekere verfijning van de vergelijking inhoudt.
Met lijst 1 in kolom A en lijst 2 in kolom B kan dit toch al wat werk verrichten:

Sub vergelijken()
For i = 1 To Range("A65500").End(xlUp).Row
    For A = 1 To Len(Cells(i, 1))
        letterA = Mid(Cells(i, 1), A, 1)
            WoordB = Cells(i, 2)
                If InStr(1, WoordB, letterA) > 0 Then Prob = Prob + 1
    Next A
        If Prob >= Len(Cells(i, 1)) * 0.7 Then
            Cells(i, 3) = "Klopt +/-"
        End If
Prob = 0
Next i
End Sub

 

[Cobbe]

Hallo Tom,

Kijk eens hier, waar een soortgelijke vraag aan de orde is geweest.
Het is op dit moment zeker nog geen oplossing, maar het geeft je denk ik wel even wat meer inzicht.

Dit is een corrupte link, denk ik toch.

 

[Thoralf]

@ Cobbe,

Een mooie oplossing, die je aardig op weg helpt.
Je moet denk ik wel de beperkingen weten:
Bijv Reeënweg in de A-kolom en Elsbosweg in de B-kolom
als ik dit bijvoorbeeld zou gebruiken bij straatnaam vergelijking.
Des al niet te min een aardige oplossing die in veel gevallen een goed begin geeft.

Wat bedoel je met corrupt? Als ik hem aanklik krijg ik keurig de bedoelde discussie te zien.

 

[Cobbe]

Deze snap ik niet echt.
Reeënweg en Elsbosweg levert toch geen +/- overeenkomst op in mijn macro.

Ik gaf ook al aan dat hij niet 100% proof is hé.

Toch bedankt voor het pluimpje.

Die Link geeft bij mij een Fatal error. Ik kan er ook niets aan doen.

 

[Thoralf]

Sorry Cobbe,

Ik had de functie verkeerd gelezen:
Hij telt een het voorkomen van een letter uit het woord in de A kolom slechts één keer in de B-kolom. Ik las abusievelijk dat als er in de A-kolom een e stond dat hij dan in de B-kolom er dan 2 zou tellen.