im Bereich "S1:WF2" steht in jeder Zelle die Formel "Farbenzaehlen" (z.B. in S1: "=Farbenzaehlen(S8:S2095;65535)"):
Public Function Farbenzaehlen(ZellBereich As Range, lngColor As Long) As Long
'Funktion zählt Zellen im Zellbereich mit dem angegebenen Colorindex
Dim Zelle As Range
For Each Zelle In ZellBereich
If Zelle.Interior.Color = lngColor Then
Farbenzaehlen = Farbenzaehlen + 1
End If
Next Zelle
End Function
Die Funktion funktioniert im gesamten Bereich und zeigt jeweils die Anzahl der gelb bzw. rot markierten Felder der jeweiligen Spalte in den Zeilen 8 bis 2095 an.Hab nun ein anderes Makro in diesem Arbeitsblatt, welche meine ToDo-Liste sortiert:
Sub Sortieren2()
'Dieses Makro sortiert mit den aktuellen Werten,
'blendet dann alle negativen Werte "
Nachdem ich dieses Makro ausführe, steht in den Zellen "S1:WF2" jeweils #WERT und als Info "Ein in der Formel verwendeter Wert ist vom falschen Datentyp." Geh ich mit F2 in eine der Zellen rein und drück dann Enter, erscheint wieder ganz normal das Ergebnis der Formel.Hat jemand eine Idee, wo das Problem liegen könnte?
LG Basti