Hallo,
ich habe folgendes Problem:
Das untere Makro vergleicht die Werte in Blatt "Tabelle1" in Spalte A mit den Werten in Blatt "Tabelle2" Spalte A. Wenn die Werte nicht gleich sind, dann wird der Bereich ausgeschnitten und um eine Zeile nach unten verschoben wieder eingefügt.
Ich möchte das folgende Makro so verändern, dass die Werte in Blatt „Tabelle1“ in Spalte A mit den Werten in Blatt „Tabelle1“ Spalte B verglichen werden. Also Vergleich von 2 Spalten im selben Tabellenblatt.
Wer kann mir helfen?


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