Ich möchte diese vergleichen und Einträge anzeigen lassen, welche
in einer der beiden nicht vorhanden sind.
Sub Manfred()
Dim Wks1 As Worksheet, Wks2 As Worksheet, _
c As Range, _
laR1 As Long, laR2 As Long
Set Wks1 = Worksheets("Tabelle1")
Set Wks2 = Worksheets("Tabelle2")
laR1 = Wks1.Cells(Rows.Count, 1).End(xlUp).Row
laR2 = Wks2.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Wks1.Range("A1:A" & laR1)
If Wks2.Range("A1:A" & laR2).Find(c.Text, LookAt:=xlWhole) _
Is Nothing Then c.Interior.ColorIndex = 3
Next c
For Each c In Wks2.Range("A1:A" & laR2)
If Wks1.Range("A1:A" & laR1).Find(c.Text, LookAt:=xlWhole) _
Is Nothing Then c.Interior.ColorIndex = 3
Next c
Set Wks1 = Nothing
Set Wks2 = Nothing
End Sub