Geschwindigkeit bei benutzerdefinierter Funktion?
11.05.2004 15:01:27
Pepi
ich habe eine benutzerdefinierte Funktion, welche Summen bildet mit einer bestimmten Farbe und habe dabei das Problem, dass die Datei ziemlich langsam wird:
Function FarbsummeH(Bereich As Range, Farbe As Byte)
' Hintergrund
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
FarbsummeH = FarbsummeH + Zelle
End If
Next
End Function
Nun habe ich aber das Problem, dass die Formel ca 100 mal in einer Wenn-Formel vorkommt:
wenn("meine Funktion"=0;Dann;"meine Funktion)
Wie kann ich hier das Problem der Geschwindigkeit lösen?
Danke im Vorhinein für die Mühe
Pepi
Anzeige