2 Excel Daten vergleichen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Vergleich() Dim TB1 As Worksheet, TB2 As Worksheet, TB3 As Worksheet, LR3 As Long, LR As Long Dim SP As Integer, Z1 As Integer Set TB1 = Sheets("Tabelle1") Set TB2 = Sheets("Tabelle2") Set TB3 = Sheets("Zusammenfassung") SP = 1 'Spalte A Z1 = 2 'wegen ggf Überschrift LR = TB1.Cells(TB1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte With TB3 .UsedRange.ClearContents .Cells(1, SP) = TB1.Cells(1, SP) 'Überschrift .Cells(1, SP + 1) = TB1.Name .Cells(1, SP + 2) = TB2.Name TB1.Cells(Z1, SP).Resize(LR - Z1 + 1).Copy .Cells(2, SP) LR3 = .Cells(.Rows.Count, SP).End(xlUp).Row LR = TB2.Cells(TB2.Rows.Count, SP).End(xlUp).Row TB2.Cells(Z1, SP).Resize(LR).Copy .Cells(LR + 1, SP) .Columns(SP).RemoveDuplicates Columns:=1, Header:=xlYes LR3 = .Cells(.Rows.Count, SP).End(xlUp).Row .Cells(2, SP + 1).Resize(LR3 - 1, 1).FormulaR1C1 = "=COUNTIF(" & TB1.Name & "!C1,RC1)" .Cells(2, SP + 2).Resize(LR3 - 1, 1).FormulaR1C1 = "=COUNTIF(" & TB2.Name & "!C1,RC1)" End With End Sub


Sub Vergleich()
Dim TB1 As Worksheet, TB2 As Worksheet, TB3 As Worksheet, LR3 As Long, LR As Long
Dim SP As Integer, Z1 As Integer
Set TB1 = Sheets("Liste 1")
Set TB2 = Sheets("Liste 2")
Set TB3 = Sheets("Wunsch")
SP = 1 'Spalte A
Z1 = 2 'wegen ggf Überschrift
LR = TB1.Cells(TB1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
With TB3
.UsedRange.Delete
.Cells(1, SP) = TB1.Cells(1, SP) 'Überschrift
.Cells(1, SP + 1) = TB1.Name
.Cells(1, SP + 2) = TB2.Name
.Cells(1, SP + 3) = "Fehlt"
TB1.Cells(Z1, SP).Resize(LR - Z1 + 1).Copy .Cells(2, SP)
LR3 = .Cells(.Rows.Count, SP).End(xlUp).Row
LR = TB2.Cells(TB2.Rows.Count, SP).End(xlUp).Row
TB2.Cells(Z1, SP).Resize(LR).Copy .Cells(LR3 + 1, SP)
.Columns(SP).RemoveDuplicates Columns:=1, Header:=xlYes
LR3 = .Cells(.Rows.Count, SP).End(xlUp).Row
.Cells(2, SP + 1).Resize(LR3 - 1, 1).FormulaR1C1 = "=COUNTIF('" & TB1.Name & "'!C1,RC1)"
.Cells(2, SP + 2).Resize(LR3 - 1, 1).FormulaR1C1 = "=COUNTIF('" & TB2.Name & "'!C1,RC1)"
.Cells(2, SP + 3).Resize(LR3 - 1, 1).FormulaR1C1 = "=IF(RC[-2]+RC[-1]2,""Fehlt"","""")"
End With
End Sub

LG UweD

Hallo Mustafa,
... kann man sich schnell und einfach einen Überblick verschaffen, dazu muss man die beiden Listen nicht erst nebeneinander stellen.
Markiere 'Liste 2!A1:A## und aktiviere die bedingte Formatierung und gib dort folgende Formel ein:
=ZÄHLENWENN('Liste 1'!$A:$A;A1) und weise dieser eine HG-Farbe zu. Die so gekennzeichneten sind alle in Liste 1 auch vorhanden. Nach dieser kanst Du mit dem Autofilter auch filtern. Alternativ kannst Du auch nach den filtern, die keine Füllung haben.
Natürlich könntest Du auch nur die fehlenden Nrn mit HG-Farbe füllen. Dazu dann folgende Formelergänzung:
=ZÄHLENWENN('Liste 1'!$A:$A;A1)=0
Analog kannst Du es auch in der Liste 1 tun, falls es da auch Nrn. geben sollte, die in Liste 2 nicht beinhaltet sein sollten.
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread