Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellen vergleichen

Tabellen vergleichen
25.06.2002 09:38:52
Olaf
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabellen vergleichen
25.06.2002 13:12:22
Udo
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige