Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Betreff
Datum
Anwender
Anzeige
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!"
Anzeige
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 !
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige