Einträge aus einer Liste gegen andere Listen abgleichen (VBA)

Martin Asal @, Montag, 06.01.2020, 12:54 (vor 20 Tagen) @ ShapeOfSelfhood
bearbeitet von Martin Asal, Montag, 06.01.2020, 13:31

Hi,

Am besten wäre es, wenn auch ungefähre Treffer angezeigt werden würden (wie Zum Beispiel "Schmidt" in der Quelldatei, "Schmitt" in einer der zu vergleichenden Tabelle).

Schau dir mal die SoundEx-Funktion an. Damit kannst du Ähnlichkeitssuchen durchführen.

Der eigentliche Aufbau der Prozedur könnte dann ca wie folgt aussehen:

Public Sub Vergleiche()
Dim Zelle1 As Range, Zelle2 As Range, Zelle2 As Range
 
'Wir gehen davon aus, dass die 3 Listen je in A5 beginnen
Set Zelle1 = Worksheets("Tabelle1").Range("A5").Cells(1)
Set Zelle2 = Worksheets("Tabelle2").Range("A5").Cells(1)
Set Zelle3 = Worksheets("Tabelle3").Range("A5").Cells(1)
 
Do Until IsEmpty(Zelle1.Value)
 
    Do Until IsEmpty(Zelle2.Value)  'Vergleich von Tabelle1 mit Tabelle2
        If Zelle1 = Zelle2 Then
            '....
        End If
        Set Zelle2 = Zelle2.Offset(1)
    Loop
 
    Do Until IsEmpty(Zelle3.Value)  'Vergleich von Tabelle1 mit Tabelle3
        If Zelle1 = Zelle3 Then
            '....
        End If
        Set Zelle2 = Zelle3.Offset(1)
    Loop
 
    Set Zelle = Zelle.Offset(1)
Loop
 
End Sub

Da ich ja nicht weiß, was bei einem Match genau passieren soll, habe ich hier nur "...." als Kommentar reingeschrieben. Da musst du schon selbst was machen ;-)

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum