Fast gleiche Duplikate finden
14.04.2004 22:18:33
Klaus
mit untenstehendem Makro finde ich alle doppelten Zitate in Spalte B
und markiere sie in Spalte A. Das klappt sehr gut. Leider müssen aber
auch Daten gefunden werden, die sich nur geringfügig unterscheiden.
Beispiel:
Der Mensch ist überwiegend humorlos, kann aber im Ernstfall lustig sein.
und
Der Mensch ist überwiegend humorlos. Kann aber im Ernstfall lustig sein.
Mir schwebt jetzt so etwas vor wie
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Wenn die ersten 3 Wörter und die letzten 3 Wörter gleich sind
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
dann (siehe Makro)
Sub DoppelteMarkieren()
Dim intRow As Integer
intRow = 2
Do Until IsEmpty(Cells(intRow, 2))
'XXXXXXX Hier müsste die neue Zeile stehen XXXXXXXXXXXXXXXXXXXXXXXXX
If Application.CountIf(Columns("B"), Cells(intRow, 2)) > 1 Then
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Cells(intRow, 1).Interior.ColorIndex = 6 'Farbig stellen
Cells(intRow, 1).Value = Range("c1").Value + 10 'Größer Datenbank
End If
intRow = intRow + 1
Loop
End Sub
Kann mir jemand dabei helfen?
Für Antworten im voraus vielen Dank.
Klaus