Vergleich von Zeilen zwischen zwei Blättern

Sub Test()
Dim bereich1 As Range
Dim bereich2 As Range
Dim treffer As Boolean
treffer = False
For Each bereich1 In Worksheets("Tabelle1").UsedRange
For Each bereich2 In Worksheets("Tabelle2").UsedRange
If bereich1 = bereich2 Then
treffer = True
Exit For
End If
Next
If treffer = False Then
Worksheets("Tabelle3").Cells((Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row) _
+ 1, 1) = bereich1
End If
treffer = False
Next
End Sub

Sub Vergleichen()
Dim wkb As Worksheet
Dim wksA As Worksheet, wksB As Worksheet, wksC As Worksheet
Dim iWks As Integer, iRow As Integer, iRowT As Integer
On Error Resume Next
For iWks = 1 To 3
Set wkb = Sheets("Liste" & iWks)
Next iWks
If Err > 0 Or wkb Is Nothing Then
Beep
Err.Clear
MsgBox prompt:="Die 3 Arbeitsblätter sind nicht vorhanden!"
Exit Sub
End If
On Error GoTo 0
Set wksA = Sheets("Liste1")
Set wksB = Sheets("Liste2")
Set wksC = Sheets("Liste3")
iRow = 1
Do Until IsEmpty(wksA.Cells(iRow, 1))
If WorksheetFunction.CountIf( _
wksB.Columns(1), _
wksA.Cells(iRow, 1).Value) = 0 Then
iRowT = iRowT + 1
wksC.Cells(iRowT, 1).Value = wksA.Cells(iRow, 1).Value
wksC.Cells(iRowT, 2).Value = wksA.Parent.Name
End If
iRow = iRow + 1
Loop
iRow = 1
Do Until IsEmpty(wksB.Cells(iRow, 1))
If WorksheetFunction.CountIf( _
wksA.Columns(1), _
wksB.Cells(iRow, 1).Value) = 0 Then
iRowT = iRowT + 1
wksC.Cells(iRowT, 1).Value = wksB.Cells(iRow, 1).Value
wksC.Cells(iRowT, 2).Value = wksB.Parent.Name
End If
iRow = iRow + 1
Loop
End Sub