Public Function SummeEigeneFarbe(Suchbereich As Range) As Long
' 2003 by Roger Heil
' Diese Funktion durchläuft den gesammtenn Bereich horizontal
' und summiert genau dann den Zelleninhalt der Zelle,wenn die
' gleiche Hintergrundfarbe gegeben ist wie inder aktuellen
' Zelle (wo sich der Aufruf des Makros befindet).
' Aufrufbeispiel in einer Zelle des Arbeitsblattes: "=SummeEigeneFarbe(H8:GN8)"
' Initialisierungen
Dim HilfsSumme As Long
Dim i, j, k, l As Long
HilfsSumme = 0
i = 0 'Laufvariable
j = Suchbereich.Row 'Zeile
k = Suchbereich.Column 'erste Spalte des Bereiches
l = k + Suchbereich.Count 'letzte Spalte des Bereiches
temp = 0
' den gesammten Bereich durchlaufen und die Summe bilden
For i = k To l
If Cells(j, i).Interior.ColorIndex = ActiveCell.Interior.ColorIndex Then
HilfsSumme = HilfsSumme + 1
End If
Next i
SummeEigeneFarbe = HilfsSumme
End Function