AW: auszählen nach formaten
14.07.2005 08:35:11
Harald
Hallo Frank,
wollte ja auch nicht den Moralapostel rauskehren ;-))
Dieser Code liefert dir schonmal die Farbcodes (colorindex)
Quelle: Excel-CD von Herber
Sub FarbIndices()
Dim iCounter As Integer
For iCounter = 1 To 56
Cells(iCounter, 1).Interior.ColorIndex = iCounter
Cells(iCounter, 2) = iCounter
Next iCounter
End Sub
Die Farbsumme könntest Du als benutzerdefinierte Funktion anwenden.
Diesen Code in das Modul der Arbeitsmappe, speichern (ggf. schließen und wieder öffnen) und im Funktionsassistenten bei benutzerdefinierte Funktionen steht sie dann.
Anwendung:
=Farbsumme(A1:A70;3)
A1:A70 ist der Suchbereich und 3 ist der colorindex (rot)
Function Farbsumme(Bereich As Range, Farbe As Integer)
Application.Volatile ' damit bei änderung ausgeführt wird
Dim Zelle
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function
Viel Erfolg
Harald