Farbige Zellen zählen
30.09.2005 11:57:53
Jürgen
ich habe folgenden Code gefunden und möchte ihn bitte so verändert haben,dass im Bereich B5:B600 alle roten Zellen gezählt werden.
Kann mir bitte jemand helfen.
Einen Button habe ich schon angelegt.
Es soll also On Klick sein und das Ergebnis soll dann in A1 stehen.
Vielen Dank für eure Hilfe
Jürgen
Private Sub CommandButton1_Click()
Dim SummeRot
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Interior.ColorIndex = 3 Then
SummeRot = SummeRot + Cells(i, 1).Value
End If
Next i
ActiveSheet.Cells(i + 1, 1).Value = "Summe Rot"
ActiveSheet.Cells(i + 1, 1).Offset(columnoffset:=1).Value = SummeRot
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub