Bin wieder zurück mit neuen Problemen!
k = Cells(x, 5) 'k = 18
For i = 1 To k Step 1
c = y + i - 1 'y = 8
t = Cells(x, c).Interior.ColorIndex 'jede 6.+7. Spalte ich grau; also Colorindex = 15
If t = 15 Then
k = k + 1
Cells(37, 5) = k 'nur für testzwecke! funktionier aber auch
End If
Next
Code eingefügt mit Syntaxhighlighter 2.0
Also er liest k= 18 ein.
geht die Schleife 18 mal durch. passt auch soweit.
aber in der schleife soll er die variable hochzählen, was auch klappt.
Er soll bei mir k = 22 rausbekommen, hört aber bei 18 schon auf. Warum? Und wie kann ich trotzdem aufs richtige Ergebnis kommen?
Gruß
Marc