hab ein problem beim vergleich zweier listen

dabei will ich dass wenn er  von liste 1 und liste2 eine übereinstimmung hat den nächsten von liste2 prüft sonst soll er mir liste1 weiter abklappern. hoffe ich steh nur, voll aufm schlauch und ist nicht wirklich so ein großes problem :)

thx

[code]

Sub prufen()
Dim BereLange As Integer
Dim SachLange As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer

k = 0
'Länge der Liste 1 und 2
BereLange = Sheets("seite1").Range(RowsCount, 1).End(xlUp).Rows
SachLange = Sheets("seit2").Range(RowsCount, 1).End(xlUp).Rows

For j = 2 To SachLange
    For i = 3 To BereLange
With Worksheets("seite1")
    If Worksheets("seite2").Cells(j, 1).Value = .Cells(i, 1).Value And _
        Worksheets("seite2").Cells(j, 21).Value = .Cells(i, 2).Value And _
        Worksheets("seite2").Cells(j, 9).Value = .Cells(i, 3).Value And _
        Worksheets("seite2").Cells(j, 8).Value = .Cells(i, 4).Value And _
        (Worksheets("seite2").Cells(j, 6).Value <= .Cells(i, 5).Value Or _
        .Cells(i, 5).Value = "") Then
        End If
        End With
        Exit For
        Next j           <---- HIER ist der Fehler, denk mal durch exit fro
    'sind wir beim letzten liste2 angekommen?
    'Ja: dann nicht gefunden und auf "zuPrüfen" kopieren
    Else
        End With
        If i = BereLange Then _
        Worksheets("seite2").Cells(j, 1).Value = Worksheet("zuPrüfen").Cells(k, 1).Value
        Worksheers("seite2").Cells(j, 21).Value = Worksheet("zuPrüfen").Cells(k, 2).Value
        Worksheers("seite2").Cells(j, 9).Value = Worksheet("zuPrüfen").Cells(k, 3).Value
        Worksheers("seite2").Cells(j, 8).Value = Worksheet("zuPrüfen").Cells(k, 4).Value
        Worksheers("seite2").Cells(j, 6).Value = Worksheet("zuPrüfen").Cells(k, 5).Value
        Worksheers("seite2").Cells(j, 12).Value = Worksheet("zuPrüfen").Cells(k, 6).Value
            k = k + 1
            'Nein: dann nächster Überprüfen
Else: Next i
       End If
    End If
End Sub

[code]