Farbig markierte Zellen zählen lassen
15.05.2003 13:52:35
Dominik
Ich möchte alle grün hinterlegten Zellen im Bereich "B11:AF42" zählen lassen und den Wert (also die Anzahl der gefundenen Zellen) in Feld "C45" ausgeben lassen. Nun habe ich in der Recherche nachgesehen, und bin auch fündig geworden. Allerdings wird an meiner Bereichangabe gemeckert... ;-) und eine Wert in "C45" bekomme ich auch nicht. Was ist falsch? Hier das Makro:
Sub Grün()
Dim cell As Range
Dim Bereich As Range
Dim i As Integer
Range("B11:AF42").Select
Set Bereich = Selection
i = 0
For Each cell In Bereich
If cell.Interior.ColorIndex = 4 Then i = i + 1
Next cell
Range("C45") = i
End Sub
MfG
Dominik