Farblich Addieren

Forumthread: Farblich Addieren

Farblich Addieren

15.07.2003 17:54:16

Stefan Glander

Hallo Excelwelt,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Farblich Addieren

15.07.2003 18:00:49

Stephan
AW: Farblich Addieren

15.07.2003 17:57:24

Otto Ecker

AW: Farblich Addieren

15.07.2003 18:00:49

Stephan


Sub test()
Dim Summe
For i = 3 To 25
If Cells(i, 3).Font.ColorIndex = 3 Then
Summe = Summe + Cells(i, 3).Value
End If
Next
[B1] = Summe
End Sub

AW: Farblich Addieren

15.07.2003 17:57:24

Otto Ecker

Hallo Stefan,
for I = 3 to 25
if cells(i,3).font.colorindex=3 then
summe= summe + cells(i,3).value
end if
next
usw

Forumthread: Farblich Addieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread