Daten vergleichen

Forumthread: Daten vergleichen

Daten vergleichen

09.06.2005 07:13:19

Manfred

Habe 2 Tabellen mit jeweils einer befüllten Spalte.
Ich möchte diese vergleichen und Einträge anzeigen lassen, welche
in einer der beiden nicht vorhanden sind.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten vergleichen

09.06.2005 07:24:41

Hajo_Zi
AW: Daten vergleichen

09.06.2005 07:27:43

ede
AW: Daten vergleichen

09.06.2005 07:43:55

WernerB.
AW: Daten vergleichen

09.06.2005 08:20:09

Manfred
AW: Daten vergleichen

09.06.2005 07:54:58

Manfred

AW: Daten vergleichen

09.06.2005 07:24:41

Hajo_Zi

Hallo Manfred,
ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
Schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.
Beispieldatei
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3..

"Wer Rechtschreibfehler findet, darf sie behalten!"

AW: Daten vergleichen

09.06.2005 07:27:43

ede

guten morgen manfred,
würde mit der Funktion sverweis() funktionieren.
siehe Beispiel: https://www.herber.de/bbs/user/23756.xls

AW: Daten vergleichen

09.06.2005 07:43:55

WernerB.

Hallo Manfred,
wie gefällt Dir das?


Sub Manfred()
Dim Wks1 As Worksheet, Wks2 As Worksheet, _
c As Range, _
laR1 As Long, laR2 As Long
Set Wks1 = Worksheets("Tabelle1")
Set Wks2 = Worksheets("Tabelle2")
laR1 = Wks1.Cells(Rows.Count, 1).End(xlUp).Row
laR2 = Wks2.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Wks1.Range("A1:A" & laR1)
If Wks2.Range("A1:A" & laR2).Find(c.Text, LookAt:=xlWhole) _
Is Nothing Then c.Interior.ColorIndex = 3
Next c
For Each c In Wks2.Range("A1:A" & laR2)
If Wks1.Range("A1:A" & laR1).Find(c.Text, LookAt:=xlWhole) _
Is Nothing Then c.Interior.ColorIndex = 3
Next c
Set Wks1 = Nothing
Set Wks2 = Nothing
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

AW: Daten vergleichen

09.06.2005 08:20:09

Manfred

Hallo Werner!
Funktioniert wunderbar.
Vielen Dank.

AW: Daten vergleichen

09.06.2005 07:54:58

Manfred

Vielen, vielen Dank.
Funktioniert wunderbar !!
Wünsche Euch beiden eine schönen Tag.
Manfred

Beliebteste Forumthreads (12 Monate)

Forumthread: Daten vergleichen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread