mit folgendem Code wird in einem Einzelblatt der Inhalt von Spalte A mit Spalte B verglichen und das Ergebnis (ich würde hier gerne auch zwei Möglichkeiten gestalten: a) Abgleich, welche Inhalte zwischen A und B nicht doppelt vorhanden sind; b) Abgleich welche Inhalte zwischen A und B doppelt sind) wird in Spalte C ausgeworfen. Dieser Code zeigt die Werte zwischen A und B an, die nicht jeweils in der einen oder anderen Spalte vorhanden sind. Wie könnte der Code geändert werden, wenn ich als Ergebnis sämtliche Doppeleinträge zwischen A und B angezeigt bekommen möchte (Soll dann als getrennter Code eingebaut werden)und die Abfrage (bzw. beide Abfragen) auf die komplette Arbeitsmappe (außer Tabelle "Start" und "Steuerung") Anwendung finden soll? Danke schon jetzt Allen wieder für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Option Explicit
Sub VergleichA_B()
Dim ALetzte As Long, BLetzte As Long, iCounter As Long, xCounter As Long
Dim xZelle As Range
ALetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(-4162).Row, Rows.Count)
BLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(-4162).Row, Rows.Count)
For iCounter = 1 To ALetzte
Set xZelle = Columns(2).Find(what:=Cells(iCounter, 1), Lookat:=xlWhole)
If xZelle Is Nothing Then
xCounter = xCounter + 1
Cells(xCounter, 3) = Cells(iCounter, 1)
End If
Next iCounter
For iCounter = 1 To BLetzte
Set xZelle = Columns(1).Find(what:=Cells(iCounter, 2), Lookat:=xlWhole)
If xZelle Is Nothing Then
xCounter = xCounter + 1
Cells(xCounter, 3) = Cells(iCounter, 2)
End If
Next iCounter
End Sub