Tabellen vergleichen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Tabellen vergleichen
von: Olaf
Geschrieben am: 25.06.2002 - 09:38:52

Hallo.
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

nach oben   nach unten

Re: Tabellen vergleichen
von: Udo
Geschrieben am: 25.06.2002 - 13:12:22

Einfachste Lösung: in beiden Tabellen eine neue Spalte A einfügen, Formel'=B2&C2' und dies vergleichen. Diese Spalten können ja auch ausgeblendet sein.
Einträge in TB3 mit
tb3.cells(y,1)=tb1.cells(i,2)
tb3.cells(y,2)=tb1.cells(i,3) bzw.tb2
dann stehen die Namen getrennt in TB3

Gruss Udo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabellen vergleichen"