Hallo Leute, es geht um eine Funktion, die zählt wenn folgendes erfüllt ist: Spalte A soll in einem bestimmten Bereich auf die Hintergrundfarbe rot geprüft werden und Spalte C in einem bestimmten Bereich auf das Kommentar "OK" --> wenn beides erfüllt ist, dann zählen.
Sollte eigentlich nicht schwer sein, bekomme aber leider nicht hin :/
Das wären meine Ansätze gewesen (Habe vorher noch nie mit VBA gearbeitet.)
<Code>
Public Function CountRedOk(bereich1 As Range)
Dim zelle As Range
For Each zelle In bereich1
If (zelle1.Interior.ColorIndex = 3) And (zelle.Offset(0, 2).Value = "OK") Then
CountRedOk = CountRedOk + 1
End If
Next zelle
End Function
Public Function CountYellowOk()
Dim bereich1 As Range, bereich2 As Range, zelle2, zelle1
Set bereich1 = Range("A2:A166")
Set bereich2 = Range("C2:C166")
For Each zelle1 In bereich1
For Each zelle2 In bereich2
If (zelle1.Interior.ColorIndex = 6) And (zelle2.Select.Value = "OK") Then
CountYellowOk = CountYellowOk + 1
End If
Next zelle2
Next zelle1
End Function
</Code>
Brauch das ganze dann für Gelb und Grün auch noch, aber das sollte ich selbst hinbekommen ;)
Vielen Dank schonmal!
Lg Phantox
|