Dim rng as range, dat1, dat2, R&,I&, enthalten as boolean
set rng=workbooks("file1.xls").sheets(1).range("A1:a100")
dat1=rng.value
dat2=workbooks("file2.xls").sheets(1).range("A7:a107").value
for r= 1 to ubound(dat1)
for i=1 to ubound(dat2)
if dat1(r,1)=dat2(i,1) then
rng(r,1).interior.colorindex=5
enthalten=true
end if
next
if not enhalten then
msgbox rng(r,1).address & " - Nicht in File 2 enthalten!", vbcritical
exit for
else
enthalten=false
end if
next