InStr - Überlaufproblem
28.07.2003 11:56:37
ThomasW
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