Tabellen vergleichen und bei Abweichung Zelle verschieben

Question

Hallo,
ich möchte gerne zwei Tabellen (Tabelle 1 Spalte A und Tabelle 2 Spalte A) in Excel vergleichen und wenn die einzelnen Zellen von einander abweichen, soll in Tabelle 2 die jeweils verglichene Zelle eine Zeile nach unten verschoben werden.
Die Spalten sehen so aus:
Tab.1 Sp.A Tab.2 Sp.A
PC1 PC1
PC2 PC3
PC3 PC4
PC4 PC5
PC5 PC6
... ...
Wenn ich jetzt die Tabellen vergleichen würde, würde ja herauskommen, dass nur die erste Zeile beider Tabellen gleich wären. Jetzt soll Excel aber in der Tabelle 2 den Eintrag PC3 eine Zeile weiter nach unten schieben, damit die Zeilen dann wieder übereinstimmen.
Ich hoffe mir kann jemand hier im Forum helfen, habe nämlich schon das I-Net durchsucht und nur Tabellen vergleichen gefunden.
Ciao

Answer 1

Hallo Coros,

Das ist eigentlich genau was ich gebrauchen könnte. Bei mir ist es aber nur eine Tabelle (Tabelle1), und die Spalten sind B und H die miteinander vergliechen werden.

Ich importiere mir 2 dif Dateien. Die eine Datei in den Spalte A-D und die andere Datei in die Spalte G-J.
Da ich in VBA nicht so bewandert bin, weiß ich nicht wie ich deinen Code abänder müßte.

Option Explicit

Sub Übereinstimmungen_finden()
Dim Letzte_Zeile_Tab1 As Long, Letzte_Zeile_Tab2 As Long, Wiederholungen As Long, _
Suchbegriff As Range
Application.ScreenUpdating = False
Letzte_Zeile_Tab1 = Sheets("Tabelle1").Range("A65536").End(xlUp).Row
For Wiederholungen = 2 To Letzte_Zeile_Tab1
With Sheets("Tabelle2").Range("A1:A" & Letzte_Zeile_Tab1)
Set Suchbegriff = .Find(What:=Sheets("Tabelle2").Cells(Wiederholungen, 1), LookIn:=xlValues)
If Suchbegriff <> Sheets("Tabelle1").Cells(Wiederholungen, 1) Then
Letzte_Zeile_Tab2 = Sheets("Tabelle2").Range("A65536").End(xlUp).Row
Sheets("Tabelle2").Range("A" & Suchbegriff.Row & ":A" & Letzte_Zeile_Tab2).Copy
Sheets("Tabelle2").Cells(Suchbegriff.Row + 1, 1).PasteSpecial Paste:=xlAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle2").Cells(Suchbegriff.Row, 1).ClearContents
End If
End With
Next
End Sub

Ich sage schon mal vielen Dank im vorraus.

Mfg Tom

Answer 2

Hallo an alle,

Gibt es vielleicht jemand anderes von Euch der mir helfen könnte.

Ich weiß wirklich nicht wie ich diesen Code umschreiben muß,
damit er für meine Varriante funktioniert.

Ich bin zur Zeit auf Montage und habe nicht viele Möglichkeiten,
als bei Euch Profis mal nach zu fragen.
Habe hier ein Excel-Sheet zur Verfügung bekommen,
womit ich Dif-Dateien vergleichen kann.
Der Vergleich funktioniert einwandfrei. Aber ich muß vorher,
damit ich sie vergleichen kann manuell anpassen.
Eine heiden Arbeit bei ein paar Tausend Zeilen.

Ich würde mich freuen wenn mir einer von Euch helfen könnte.
Besten Dank im vorraus.

Mfg Tom