For i = 65536 To 1 Step -1
    Workbooks.Open FileName:="C:\Ergebnis.xls"
    Sheets("Ergebnis").Select
    NK = Cells(i, 6)
    Belnum = Cells(i, 7)
    Pos = Cells(i, 8)
 
    For i2 = 65536 To 1 Step -1
    Workbooks.Open FileName:="C:\BereitsMK.xls"
    Sheets("BereitsMK").Activate
    NK2 = Cells(i2, 2)
    Belnum2 = Cells(i2, 3)
    Pos2 = Cells(i2, 3)
    If NK = NK2 And Belnum = Belnum2 And Pos = Pos2 Then
    Workbooks("Ergebnis").Activate
    Sheets("Ergebnis").Select
    Cells(i, 13) = "erledigt Mitkontierung"
    Workbooks("Ergebnis").Close SaveChanges:=False
    End If
    Workbooks("BereitsMK").Close SaveChanges:=False
    Next i2
 
 
    Next i