Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

2 spalten aus 2 Exceltabellen vergleichen





Frage

Ich habe in einem Excel-Dokument in zwei Tabellen zwei Datenbank-Abfragen gemacht. Beide Tabellen enthalten teilweise die gleichen Spalten aber auch andere. Nun möchte ich die Spalte G (AMK_ID) in beiden Tabellen miteinander vergleichen und die gleichen Daten in der ersten Tabelle markieren

Antwort 1 von nighty

hi all

ein beispiel,ausgehend von nicht doppelten

gruss nighty

Worksheets nummern waeren anzupassen
Workbooks nummern waere anzupassen
Worksheets nummer fuer die einfaerbung in der if bedingung anpassen

einzufuegen alt + f11 / projektexplorer / allgemeines modul

Option Explicit
Sub Suchen()
Dim suche As Range
Dim zaehler As Long
For zaehler = 2 To Workbooks(1).Worksheets(1).Range("G" & Rows.Count).End(xlUp).Row
Set suche = Workbooks(1).Worksheets(2).Range("G2:G" & Workbooks(1).Worksheets(1).Range("G" & Rows.Count).End(xlUp).Row).Find(Workbooks(1).Worksheets(1).Cells(zaehler, 1))
If Not suche Is Nothing Then
Workbooks(1).Worksheets(1).Cells(zaehler, 1).Interior.ColorIndex = 3
End If
Next zaehler
End Sub