Hallo,

folgende Codezeile produzieren mir beim ersten Druchlauf einen Überlauf (Fehlercode: 6)?
*****
For i = 1 To 1000
For j = 1 To 20

If InStr(1, Cells(i, j), Suchbegriff, vbBinaryCompare) <> 0 Then
Cells(i, j).Interior.ColorIndex = 6
End If

Next j
Next i

***



Weiß jemand rat? (das gleiche Problem tritt auf, wenn ich den "Like" Operator zum vergleichen nehme!

was will ich machen... wenn in einer Zeile ein bestimmter String (Variable "Suchbegriff") gefunden wird, dann soll die Zelle eingefärbt werden. Das ist alles

DANKE

Grüsse Thomas