IF Konstruktion geschickert umbauen?
02.09.2004 16:05:24
Basti
l = 0
For i = start To o
If Cells(j, i) <> "" Then
If Cells(j, i).Interior.Color <> RGB(255, 255, 255) Then
If InStr(Cells(j, i), "F") <> 1 Then
If Cells(j, i).Interior.Color <> RGB(0, 0, 255) Then
If Cells(j, i).Interior.Color <> RGB(0, 0, 0) Then
If Cells(j, i).Interior.Color <> RGB(153, 51, 0) Then
If Cells(j, i).Interior.Color <> RGB(51, 102, 255) Then
If Cells(j, i).Interior.Color <> RGB(128, 0, 0) Then
If Cells(j, i) <> "A" Then
If Cells(j, i) <> "BS" Then
l = l + 1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next i
Cells(j, 23) = l
Next j
Ok das is mein If Verschachtelung die Funktioniert ohne Probleme.
Start und ende der For Schleifen is für mein Problem auch nicht ausschlaggebend, sonst waere der Code 3 Seiten lang.
In der letzten If Verschatelung Schliesse ich "BS" aus.
Vorher schliesse ich schon grau aus.
Wenn ein Feld mit BS und grauem Hintergrund da ist, soll es aber trotzdem mit gezählt werden. Nur wenn grauer Hintergrund ohne "BS" oder "BS" ohne grauem Hintergrund soll es ausgeschlossen werden.
Ich hab überlegt eine zweite For Schleife zu bauen, die "BS" mit grauem Hintergrund zählt.
Aber vllt muss ich ja nur was in der If Schleife ändern, wobei mir da jetzt nix einfällt!
Wer was weiss ich bin dankbar, wenn ich endlich damit fertig bin ;)
Danke Basti