Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zwei Tabellenblätter vergleichen

Zwei Tabellenblätter vergleichen
13.07.2007 12:51:00
badler
hallo liebe excel-freunde,
habe ein kleineres (hoffe ich) problemchen.
ich benötige eine formel (oder vba progrämmchen), dass mir auf zwei tabellenblättern die ersten beiden spalten vergleicht, und die schon vorhanden einträge dann im zweiten tabellenblatt mit einem "x" in spalte "D" kennzeichnet.
in tabelle 1 steht zum beispiel
Spalte A: Straße
Spalte B: Baumaßnahmen
Spalte C: Zahlenfolge
in tabelle 2 ist es das gleiche.
in beiden so um den dreh 1000 einträge. (1 ca. 900, 2 ca. 840)
es sollen die spalten A und B verglichen werden, wenn eins in beiden listen vorkommt, soll im tabellenblatt 2 ein X hinter den zahlencode (also spalte D) hinzugefügt werden, damit ich nachher die doppelten über den autofilter raussuchen kann.
ich hoffe ihr könnt mir helfen
vielen dank schonmal
grüße
björn

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Tabellenblätter vergleichen
13.07.2007 21:37:03
nighty
hi björn :-)
wie gewünscht :-))
gruss nighty
Option Explicit

Sub liste_X()
Dim zeiletab1 As Long, zeiletab2 As Long, zeiletab3 As Long, zaehler As Long
Dim suche1 As Range, suche2 As Range
zeiletab1 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
zeiletab2 = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row
If zeiletab1 > zeiletab2 Then
zeiletab3 = zeiletab1
Else
zeiletab3 = zeiletab2
End If
For zaehler = 2 To zeiletab3
Set suche1 = Worksheets(2).Range("A2:A" & zeiletab3).Find(Sheets(1).Cells(zaehler, 1), Lookat:= _
xlWhole)
Set suche2 = Worksheets(2).Range("B2:B" & zeiletab3).Find(Sheets(1).Cells(zaehler, 2), Lookat:= _
xlWhole)
If Not suche1 Is Nothing Then Worksheets(2).Cells(suche1.Row, 4) = "X"
If Not suche2 Is Nothing Then Worksheets(2).Cells(suche2.Row, 4) = "X"
Next zaehler
End Sub


Anzeige
AW: Zwei Tabellenblätter vergleichen
16.07.2007 12:18:00
badler
ich danke vielmals, es hat PERFEKT funktioniert und ich habe schon gesehen wo mein fehler war.
also nochmals VIELEN VIELEN DANK!

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige