ich möchte in einer Funktion zwei Bedingungen erfüllt haben. Mit einer Bedingung klappt es.
Beispiel:
Public Function AnzahlBlau(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 8 Then
s = s + 1
End If
Next
AnzahlBlau = s
End Function
==================================
Wenn ich aber die Bedingung mit der Farbe mit einem Zellwert verknüpfen will, geht es nicht mehr.
Beispiel:
Public Function AnzahlBlau(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 8 AND Cell.Value = "B" Then
s = s + 1
End If
Next
AnzahlBlau = s
End Function
====================================
Kann mir jemand den Code verbessern?
Vielen Dank und Gruß
Burghard