Farben zählen bei versch. bedingten Formatierungen
03.06.2007 12:16:00
KiaOra
würde gerne per VBA alle Zellen mit einer bestimmten Hintergrundfarbe (ColorIndex = "37") zählen und das Ergebnis in eine andere Zelle schreiben lassen.
Problem dabei ist, dass die Hintergrundfarbe aus verschiedenen bedingten Formatierungen mit jeweils verschiedenen Bedingungen resultiert - bisher konnte ich hier nur Posts mit einer einzigen Bedingung finden... :-(
Details:
- Es geht nur um den Reiter "Buchungsliste" und Bereich I4 bis AL2000
- Das Ergebnis soll im gleichen Reiter in Feld AN3 geschrieben werden...
Hatte mich mal in VBA versucht (s.u.) - klappte aber nicht wirklich...
Sub FarbenZählen()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
intBlau = 0
Sheets("Buchungsliste").Select
For Each zelle In Range("I4:AN2000").Cells
If zelle.Interior.ColorIndex = "37" Then intBlau = intBlau + 1
Next zelle
Range("AN3").Value = intBlau & " blau"
End Sub
Wisst Ihr Rat?
VG u vielen Dank an alle,
Micha