Ich möchte in einem grösseren Bereich alle farbigen Zellen pro Zeile zählen und in der Spalte C pro Zeile die Anzahl der farbigen Zellen dieser Zeile eintragen. Mit Folgendem Link kann ich alle farbigen Zellen ermitteln und in Zelle C10 schreiben - das ist aber nun nicht mehr ausreichend. Nun muss ich es je Zeile separat haben. Ich bring's nicht hin.... kann mir jemand helfen den Code abzuändern?
Mein aktueller Code:
Sub Zählen_je_Zeile3()
Dim anzahl As Long
Dim Zelle As Range
For Each Zelle In Range("D6:EA15")
anzahl = 0 ' xlNone Then
anzahl = anzahl + 1
End If
Next Zelle
Range("C10").Value = anzahl '
Grüsse
Rolf