Gruppe
UDF
Problem
Wie kann ich die Anzahl aller mit einer bestimmten Hintergrundfarbe formatierten und einen bestimmten Text beinhaltenden Zellen errechnen lassen?
StandardModule: basMain
Function WertUndFarbe(rng As Object, _
iColor As Integer, sTxt As String) As Integer
Dim rngZelle As Range
Dim iCounter As Integer
For Each rngZelle In rng.Cells
If rngZelle.Interior.ColorIndex = iColor And _
rngZelle.Value = sTxt Then _
iCounter = iCounter + 1
Next rngZelle
WertUndFarbe = iCounter
End Function