AW: Zwei Kundendatenbanken miteinander vergleichen
05.12.2006 09:49:43
Xelleron
Hallo,
vielleicht hilft Dir das ja weiter:
Alle Datensätze aus beiden Datenbanken in eine gemeinsame Mappe kopieren und dann einem Button folgenden Code zuweisen:
Sub DoppelteSätzeEliminieren()
Dim i As Long
Sheets("Until3").Activate
'zuerst sortieren
'ggf. den Bereich erweitern, je nachdem was in dem Datensatz drin steht
Columns("A:E").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
i = 1
'jetzt doppelte Sätze rausschmeißen
Do Until IsEmpty(Cells(i, 1).Value)
If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Cells(i, 1).EntireRow.Delete
Else
i = i + 1
End If
Loop
End Sub
Gruß
Dennis