addieren wenn Farbe (bedingt)
23.07.2016 21:57:09
Bea
Hallo Forum,
schon wieder hänge ich fest.
Diesmal liegt es am Addieren von Werten nur wenn sie schwarz sind.
Gefunden habe ich das:
Function Farbsumme(Bereich As Range)
Application.Volatile
Farbsumme = 0
For Each zelle In Bereich
If zelle.Font.ColorIndex = 1 Then
Farbsumme = Farbsumme + zelle.Value
End If
Next
End Function
Funktioniert auch fast super
aber eben nur fast. Meine Werte werden nur schwarz in die Vorlage geschrieben wenn ich diese mit einem x markiere.
Formel in der bedingten Formatierung: A23=X
Steht da kein x dann sind die Werte in weißer Schriftfarbe.
Ist es weiß, soll es auch nicht gezählt werden und da liegt mein Problem.
Das tut es nämlich nicht, hingegen werden die weißen Werte addiert wenn ich den FarbIndex auf 2 setze.
Könnt ihr mir einen Tipp geben was ich hier falsch mache?
Ps. In der bedingten Formatierung habe ich die Farbe Schwarz als Schriftfarbe ausgewählt, also nicht automatisch zugewiesen. Trotzdem geht es nicht.
Jetzt brauche ich wirklich eure Hilfe.
Ich sage wie immer danke und grüße
Bea