Tabellen vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tab_vergl() Sheets("Tabelle3").Cells.Clear Z = 1 For i = 1 To 5000 a = Sheets("Tabelle1").Cells(i, "H") b = Sheets("Tabelle2").Cells(i, "H") If a b Then Sheets("Tabelle3").Cells(Z, "a") = "Zeile " & i & ": Tab 1 = """ & a & """, Tab 2 = """ _ & b & """" Z = Z + 1 End If Next i Sheets("Tabelle3").Select End Sub

Wenn ein vermeintlicher Treffer in Spalte H gefunden wird, müssen dann alle Spalten von A bis CY überprüft werden, ob sie identisch sind, oder lässt sich das auf 2-3 Zellen beschränken?
Wenn es nur wenige Zellen sind würde ich über Verketten diese in einer Hilfsspalte zusammenführen und hiermit vergleichen und wenn alle Zellen verlichen werden müssen, verstehe ich nicht direkt die Besonderheit von Spalte H...
Was soll in Tabellenblatt 3 stehen? Nur die Zeile aus den vorherigen Tabellenblättern, oder auch in welcher sie enthalten ist und in welcher nicht? Und ist Tabelle 1 oder Tabelle 2 "neuer"?
Und ich muss MCO Recht geben: Eine Beispieldatei (am besten mit einem Beispiel in Tabelle 3) wäre sinnvoll!

Ich habe mir jetzt mal die Mühe gemacht, und dein Problem simuliert.
Aber ich verstehe dein Verhalten auch nicht ganz, weil du kannst ja auch eine Beispieldatei ohne irgendwelche Firmendaten von Zuhause aus hochladen!
Also hier mein Code für das Herausfinden der neuen Zeilen:

Option Explicit
Sub test()
Dim x As Long: Dim destrow As Long: Dim cell As Range
x = ThisWorkbook.Sheets(1).Cells(Rows.Count, 8).End(xlUp).Row
destrow = ThisWorkbook.Sheets(3).Cells(Rows.Count, 8).End(xlUp).Row + 1
For Each cell In ThisWorkbook.Sheets(1).Range("H1:H" & x).Cells
If Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets(2).Columns(8), cell) > 0 Then
Else: ThisWorkbook.Sheets(1).Rows(cell.Row).Copy Destination:=ThisWorkbook.Sheets(3).Range("A" & _
destrow)
destrow = destrow + 1
End If
Next
End Sub

Welche gelöscht wurden, kannst du sicher dir selbst zusammenbasteln, indem du die Bezüge umdrehst.
Übrigens verstehe ich immer noch nicht ganz dein Kriterium in Spalte H - und dafür wurde ja um ein Bsp. und Klärung gebeten!
Was wäre, wenn z.B in Tabelle 1 der Wert in Spalte H 2x vorkommt und in Tabelle 2 3x?
Aber da du uns diese Frage nicht explizit gestellt hast, gehe ich nun davon aus, dass du das alleine lösen kannst!

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