Farblich Addieren
15.07.2003 15:54:16
Stefan Glander
wie muss ich den Code ändern das er alle Zellen von c3 bis c25 die in roter Schrift addiert?
Sub test()
Dim Summe
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Font.ColorIndex = 3 Then
Summe = Summe + Cells(i, 1).Value
End If
Next
[B1] = Summe
End Sub
Danke
Stefan