For Each.. Next Anweisung
26.08.2004 15:55:16
Andy
Ich habe in meinem Code die folgende "For Each.. Next" Anweisung. Sie bewirkt dass die zellwerte der zellen addiert werden, welche den FArbcode 35 besitzen.
Leider wird die Anweisung schon nach der ersten zelle, mit dem FArbcode, beendet. Was ist an der anweisung falsch?
Dim Wert as Variant
Dim Summe1 As Double
Summe1 = 0
For Each Wert In Range(Cells(9, 9), Cells(29, 9))
If Wert.Interior.ColorIndex = 35 Then
Summe1 = Summe1 + Wert.Value
Exit For
End If
Next
Cells(34, 6).Value = Summe1
Gruß
Andy