Farbanzahl
Ralf
habe folgendes VBA:
Public Function FarbSumme(rngBereich As Range, intFarbe As Integer) As Double
Dim rngZelle As Range
Application.Volatile
For Each rngZelle In rngBereich
If rngZelle.Interior.ColorIndex = intFarbe And IsNumeric(rngZelle) Then FarbSumme = _
FarbSumme + rngZelle
Next
End Function
Public Function FarbAnzahl(rngBereich As Range, intFarbe As Integer) As Long
Dim rngZelle As Range
Application.Volatile
For Each rngZelle In rngBereich
If rngZelle.Interior.ColorIndex = intFarbe Then FarbAnzahl = FarbAnzahl + 1
Next
End Function
wenn ich nun z.B. =Farbanzahl(A1:A10;3) in die Zelle B1 eingebe wird mir die Anzahl der rot hinterlegten Zellen angezeigt. Die klappt auch soweit ganz gut. Wenn ich nun die Excel schließe und dann die Arbeitsmappe wieder öffne funktioniert es aber nicht mehr. In der Zelle B1 wird mir dann #NAME? angezeigt.
Ich habe keine Ahnung was passiert ist, oder was ich ändern muss!!
Kan mir bitte jemand helfen?
Gruß
ralle