Hallo,
folgenden Codeteil kann man bestimmt einfacher schreiben, denn so braucht dieser Teil ca 2 min für den Durchlauf:
-- es geht um die Tabellenblätter "Zuget" und "Pool"
-- im Blatt "Zuget" stehen in der Spalte 27 ca 600 Begriffe
-- im Blatt "Pool" stehen in der Spalte rngZelle.Column ca 7000 Begriffe
Im Blatt "Pool" sollen jetzt alle Zellen in der Spalte rngZelle.Column, die einen Begriff enthalten der auch im Blatt "Zuget" vorkommt, rot hinterlegt werden.
For j = 1 To LzZuget
For i = 1 To LzPool
If wksZuget.Cells(j, 27) = wksPool.Cells(i, rngZelle.Column) And wksPool.Cells(i, rngZelle.Column) "" Then
wksPool.Cells(i, rngZelle.Column).Interior.ColorIndex = 3
End If
Next i
Next j
Besten Dank im voraus, Servus Walter