I have tried the following with no success:-
Sorry, i am not a programmer....

Sub ABC()
Dim sh1 as worksheet, sh2 as worksheet, sh3 as worksheet
Dim rng1 as Range, rng2 as Range
Dim rw as Long, cell as Range
set sh1 = worksheets("Tabelle1")'**Changed
set sh2 = worksheets("Temp")'**Changed
'** Changed
rw = 2
set rng1 = sh1.Range(sh1.Cells(2,1),sh1.Cells(2,1).End(xldown ))
set rng2 = sh2.Range(sh2.Cells(2,1),sh2.Cells(2,1).End(xldown ))
for each cell in rng1
if application.countif(rng2,cell.value) = 0 then
cell.EntireRow.Delete sh2.Cells(rw, 1)'**Changed
rw = rw + 1
end if
Next

End sub


Les Stout

*** Sent via Developersdex http://www.developersdex.com ***