Farbsumme
16.02.2007 09:40:08
aridder
ich habe folgende Frage zu der Bildung einer Farbsumme:
mit folgendem Modul berechne ich die Farbsumme:
Function FarbSumme(Bereich As Range)
FarbSumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 36 Then
FarbSumme = FarbSumme + Zelle.Value
End If
Next
End Function
Kann ich dieser Formel irgendwie beibringen, dass er statt der farblich formatierten Zellen nur die Zellen addiert, die unmittelbar UNTER der formatierten Zelle liegen?
Vielen Dank!!!
Viele Grüße, Andreas