ich zähle die Farben Rot und Grün in einem Zeilenbereich "bt14:ct14" und die Anzahl trage ich in "ce14:cf14" ein.
Das mache ich mit folgenden Makro:
Sub farben_zaehlen1()
Dim Zelle As Range
Dim ZählerRot As Long
Dim ZählerGrün As Long
Dim FarbNrRot As Long
Dim FarbNrGrün As Long
FarbNrRot = Range("cf11").Interior.Color
FarbNrGrün = Range("ce11").Interior.Color
For Each Zelle In Range("bt14:ct14")
If Zelle.Value "" Then
If Zelle.DisplayFormat.Interior.Color = FarbNrRot Then ZählerRot = ZählerRot + 1
If Zelle.DisplayFormat.Interior.Color = FarbNrGelb Then ZählerGelb = ZählerGelb + 1
If Zelle.DisplayFormat.Interior.Color = FarbNrGrün Then ZählerGrün = ZählerGrün + 1
End If
Next
Application.EnableEvents = False
Range("cf14").Value = ZählerRot
Range("ce14").Value = ZählerGrün
Application.EnableEvents = True
End Sub
Meine Frage:Kann man dieses "Farben zählen" auch als Formel umsetzen?
So das ich nur noch "runterKopieren" muss?
zum etwas besseren Verständnis: https://www.herber.de/bbs/user/148342.xlsb
Guss
Fred