Tabellen vergleichen
25.06.2002 09:38:52
Olaf
Ich möchte die ersten beiden Spalten (Famileinname, Vorname)
von zwei Tabellen vergleichen und die Einträge die nicht doppelt
vorhanden sind, in einer dritten Tabelle ausgeben.
Habe in diesem Forum schon folgendes VBA Beispiel gefunden:
'StandardModule: mHWH
Sub Vergleichen()
Dim TB1 As Worksheet, TB2 As Worksheet, TB3 As Worksheet
Dim Gefunden As Range
Dim i%, y%
Set TB1 = Workbooks("Mappe1").Worksheets(1)
Set TB2 = Workbooks("Mappe2").Worksheets(1)
Set TB3 = Workbooks("Mappe3").Worksheets(1)
i = 1: y = 1
Do Until IsEmpty(TB1.Cells(i, 1))
Set Gefunden = TB2.Columns(1).Find _
(TB1.Cells(i, 1), lookat:=xlWhole)
If Gefunden Is Nothing Then
TB3.Cells(y, 1) = TB1.Cells(i, 1)
y = y + 1
End If
i = i + 1
Loop
i = 1
Do Until IsEmpty(TB2.Cells(i, 1))
Set Gefunden = TB1.Columns(1).Find _
(TB2.Cells(i, 1), lookat:=xlWhole)
If Gefunden Is Nothing Then
TB3.Cells(y, 1) = TB2.Cells(i, 1)
y = y + 1
End If
i = i + 1
Loop
End Sub
Doch hier wird nur die erste Spalte verglichen, es müssen aber wie gesagt die ersten beiden verglichen werden ( Im Zusammenhang!).
Was muß ich dafür ändern.
Gruß
Olaf
P.S.: Habe keine Ahnung von VBA