For each Zelle.Value (neu geöffnet)

Dim Artikelstamm As Workbook
Dim Wertevorrat As Workbook
Dim WSArtikelstamm As Worksheet
Dim WSWertevorrat As Worksheet
Dim ZellenStamm As Range
Dim ZellenVorrat As Range
Set Artikelstamm = ActiveWorkbook
Set Wertevorrat = Workbooks.Open("MEINPFAD")
Set WSArtikelstamm = Artikelstamm.Worksheets(1)
Set WSWertevorrat = Wertevorrat.Worksheets(1)
For Each ZelleStamm In WSArtikelstamm.Columns(10).SpecialCells(xlCellTypeConstants)
Set ZellenVorrat = WSWertevorrat.Columns(1).Find(what:=ZellenStamm.Value, lookat:= _
xlWhole, LookIn:=xlValues)
If ZellenVorrat Is Nothing Then ZellenArtikel.Interior.Color = vbRed
Next