Application.Volatile
05.06.2007 09:21:36
Peter
Ich habe eine Funktion gefunden, die es ermöglicht, Werte bestimmter farbiger Zellen zu summieren.
Wenn ich die Frabe ändere, muss ich jeweils zuerst aktualisieren, damit die Berechnung aktualisiert wird (habe Berechnen auf automatisch eingestellt). Dabei dachte ich, dass dies nicht nötig sein, wenn in der Funktion "Application.Volatile" enthalten ist. Bin ich da falsch gewickelt?
Danke für eine Rückmeldung.
Peter
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End
Function