Option Explicit
Sub DateienVergleichen()
Dim RNG As Range, Dat1, Dat2, R&, I&, Enthalten As Boolean, errCount&
Application.ScreenUpdating = False
Dat1 = Workbooks("File1.xls").Sheets(1).Range("A7:a100").Value
Set RNG = Workbooks("File2.xls").Sheets(1).Range("A7:a100")
Dat2 = RNG.Value
RNG.Interior.ColorIndex = xlNone
For R = 1 To UBound(Dat1)
For I = 1 To UBound(Dat2)
If Dat1(R, 1) = Dat2(I, 1) Then
RNG(I, 1).Interior.ColorIndex = 6
Enthalten = True
End If
Next
If Not Enthalten Then
If errCount < 10 Then MsgBox Dat1(R, 1) & "(" & RNG(R, 1).Address & ") - Nicht in File 2 enthalten!", vbCritical
errCount = errCount + 1
Else
Enthalten = False
End If
Next
Application.ScreenUpdating = True
End Sub