Fehler falscher Datentyp
28.02.2017 14:01:45
Basti
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
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 "Hat jemand eine Idee, wo das Problem liegen könnte?
LG Basti