Farbige Zellen zählen
Gunnar
ich hab mal wieder ein Problem, bei dessen Lösung ich auf eure Hilfe hoffe.
Folgenden Code verwende ich um farbige Zellen in den Spalten A, B und C (jeweils 1 - 10) zu zählen.
Function CountCellColor(rng As Range, iColor As Integer) As Double
Dim rngAct As Range
Dim iCount As Integer
For Each rngAct In rng.Cells
If IsNumeric(rngAct.Value) Then
If rngAct.Interior.ColorIndex = iColor Then
iCount = iCount + 1
End If
End If
Next rngAct
CountCellColor = iCount
End Function
Sub Farben()
Dim i As Integer
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Next i
End Sub
'=CountCellColor(A1:A10;4)
'Die Farbindizes stellst Du fest über:
Das klappt soweit auch ganz gut, hat aber zwei Haken.
1. Gezählt werden nur "echte" farbliche Markierungen, also keine die über die bedingte Formatierung geliefert werden und
2. der Zählvorgang wird nur ausgelöst, wenn ich in der farblich markierten Zelle auf "Entf" drücke?
Kann jemand Helfen?
Danke & Gruß
Gunnar