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