Zellen in Abhängigkeit von Werten mit Textfarbe
12.03.2004 11:41:14
Burghard
ich brauch mal ganz doll Hilfe.
Bei der unteren Funktion würde ich gerne noch etwas einbauen.
Option Explicit
' In Zelle=FarbsummeR(B2:B200;3) für Rot
Function FarbsummeR(Bereich As Range, Farbe As Integer)
' Schriftfarbe
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = Farbe Then
FarbsummeR = FarbsummeR + Zelle
End If
Next
End Function
Die Funktion soll wie bisher alle Werte mit roter Schriftfarbe addieren, allerdings soll noch hinzukommen:
Wenn die Zelle eine rote Textfarbe und den Wert "0" hat (also zwei Bedingungen), dann sollen alle Zellen, die zwei Zellen oberhalb der Zelle mit der roten Textfarbe und dem Wert 0 sind, die Textfarbe blau (= 11) erhalten.
Die Sache über eine bedingte Formatierung zu lösen geht nicht, weil dann die Addition der Werte, die zwei Zellen über den roten Zellwerten mit 0 stehen, nicht als Addition (blaue Textfarbe) fehlerfrei abgefragt werden können.
Irgendwie muß die Sache in die bestehende Funktion integriert werden. Aber wie? Brauche echt Hilfe. :-)
Gruß Burghard