Fehler in Schleife. Array wird nicht eingehalten?!
14.11.2003 08:50:19
Jessica
habe hier eine Schleife, die über die Zeilen 1-30 laufen soll und über die im Array genannten Spalten und sobald wenn eine der geprüften Zellen leer ist, dann soll sie rot gefärbt werden.
Den Tipp mit dem Spaltenarray habe ich hier auch mal im Forum gekriegt und bisher hat's immer funktioniert...
Bei diesem Code habe ich aber das Problem, dass er mir auch die Spalte 9 färbt, obwohl sie im Array doch gar nicht genannt ist?!
--------------------------------------------------------------------------------
Spaltenarray = "8,10,20,33,56,64,78,79,80,81,82,83,84"
For q = 1 To 30
For p = 8 To 84
If InStr(1, Spaltenarray, p, 1) Then
If IsEmpty(Cells(q, p)) Then
Cells(q, p).Interior.ColorIndex = 3
MsgBox "Es wird rot gefärbt: Zeile " & q & " Spalte " & p
Else
Cells(q, p).Interior.ColorIndex = xlNone
End If
End If
Next
Next
--------------------------------------------------------------------------------
Kann mir jemand sagen warum?? Ich find und find den Fehler einfach nicht...
Danke,
Jessie