Hallo zusammen,

ich stehe bei einer Auswertung komplett auf dem Schlauch. Ich hoffe ihr könnt mir helfen :)

ich benutze aktuell folgenden Code um farbige Zellen zu zählen:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

In Excel gebe ich es dann folgendermaßen ein:

=Colorfunktion("Farbe nach der gesucht werden soll markieren";"Bereich in dem gezählt werden soll";Falsch)

Jetzt habe ich eine Liste in Excel in der Namen aufgelistet sind (die Namen kommen in der Liste mehrfach vor). Neben den Namen sind in den rechtsliegenden Zellen verschiedene Farben die ich zählen möchte.

Müsste ich nicht die Anzahl der Farben sondern Zahlen/Buchstaben zählen könnte ich ja einfach die ZÄHLENWENNS-Funktion verwenden und auswerten.

Habt ihr einen Ansatz wie ich den VBA-Code umschreiben kann, um die Liste nach dem Prinzip der ZÄHLENSWENN-Funktion auszuwerten und trotzdem die Farben zu zählen?

Vielen Dank für Eure Hilfe!