Funktion langsam
03.02.2013 12:34:47
frodobodo
ich habe folgendes Problem:
Die unterschiedlichen Farben meinen Jahreskalender sollen gezählt werden.
Jeder Zustand hat eine eigene Hintergrundfarbe:
Urlaub = grün
Feiertage = hellblau
Wochenende(Sa+So) = gelb
Krank = Rot
Freizeit = orange
u.s.w.
Die Funktion (habe ich schon vor Jahren aus dem I-Net) ist in der selben Datei unter VBAProject/Module/Modul1 abgelegt.
Function AnzahlHintergrundfarbe(ByRef Daten As Range, ByRef Farbe As Range) As Double
Dim Zellen As Object
Application.Volatile
For Each Zellen In Daten
If Zellen.Interior.ColorIndex = Farbe.Interior.ColorIndex Then _
AnzahlHintergrundfarbe = AnzahlHintergrundfarbe + 1
Next
End Function
In Excel wird in der unteren Zeile folgendes eingeblendet:
Berechnung wird ausgeführt (2 Prozessoren): ....%
und die Prozentzahl geht dann ziemlich langsam hoch.
Muß ich die Funktion noch irgendwo einbinden ? oder ist sie für mein Excel 2007 nicht geeignet.
Die Funktion sollte aber auf allen Rechnern laufen wo auch meine Planung läuft.
Kann mir jemand weiterhelfen ?
Gruß FrodoBodo
Anzeige