Makro, das Zeilen mit gleicher Sachnummer in Spalte H einer tabelle findet.

Sub CheckIt()
SuchSpalte = "H"  
SuchZeile = 2 'Suche ab dieser Zeile  
TestSpalte = "U"  

ZielTabelle = "Tabelle2"  
ZielSpalte = "N"  
ZielZeile = 3 'Eintrag ab dieser Zeile  

Erledigt = "|"  
Zeile = SuchZeile
Set ZielTab = Worksheets(ZielTabelle)

Sachnummer = Cells(Zeile, SuchSpalte).Value
Do While Sachnummer <> ""  
    If InStr(Erledigt, "|" & Sachnummer & "|") = 0 Then  
        Erledigt = Erledigt & Sachnummer & "|"  
        Test = Cells(Zeile, TestSpalte).Value
        OK = True
        Set c = Columns(SuchSpalte).Find(Sachnummer, Cells(Zeile, SuchSpalte), xlValues)
        If Not c Is Nothing Then
            Do
                If Cells(c.Row, TestSpalte).Value <> Test Then
                    OK = False
                    Exit Do
                End If
                Set c = Columns(SuchSpalte).FindNext(c)
            Loop While Not c Is Nothing And c.Row > Zeile
        End If
        If OK Then
            ZielTab.Cells(ZielZeile, ZielSpalte).Value = "x"  
            ZielZeile = ZielZeile + 1
        End If
    End If
    Zeile = Zeile + 1
    Sachnummer = Cells(Zeile, SuchSpalte).Value
Loop
End Sub