Office: Summe nach Farbe

Hallo zusammen,
ich benötige Hilfe in MS Excel 2003

In einer Spalte sind Zahlen die in Schriftfarbe schwarz und blaugrau manuell verändert werden.
Ich benötige eine Formel die in der Ergebniszelle nur die Zahlen ausrechnet , die eine blaugraue bzw. in schwarze Schriftfarbe haben.

Lösungen ohne vba wären schön, weil ich mich im Thema vba leider nicht so auskenne ;-)

Ich danke Euch schonmal vorab.
Gruß Juri

 

Hallo!

Ohne VBA? Keine Chance!!!!

Daher:
Öffne in Excel aus deiner Arbeitsmappe mit Alt+F11 den VBA-Editor.
Nun Menü Einfügen > Modul
In das Codefenster rechts oben fügst du diesen Code ein:

Code:

Function Farbsumme(Bereich As Range, Farbe As Integer)
    Dim Zelle As Range
    Application.Volatile
    For Each Zelle In Bereich
        If Zelle.Font.ColorIndex = Farbe Then
            Farbsumme = Farbsumme + Zelle
        End If
    Next
End Function

Jetzt steht dir in dieser Mappe die Funktion "=Farbsumme(Bereich;Farbe)" zur Verfügung.
=Farbsumme(A1:A100;4) addiert z.B. alle Zahlen aus dem Bereich A1:A100, die eine grüne Schriftfarbe haben.

Der Colorindex von "blaugrau" könnte 47 sein.
Falls nicht, dann kopiere dieses Makro mal in eine leere Arbeitsmappe:

Code:

Sub Farben()
Dim i As Integer
For i = 1 To 56
Tabelle1.Cells(i, 1).Interior.ColorIndex = i
Tabelle1.Cells(i, 2) = i
Next i
End Sub

Wenn du dieses Makro über Alt+F8 aufrufst, werden dir in Tabelle1!A1:B56 alle Farben nebst Colorindex-Nummer aufgelistet, so dass du die entsprechende Zahl ermitteln kannst.

 

Geschafft

Schatzi Du bist ein Schatz ;-)

Dank Deiner tollen Anleitung, habe ichs auf anhieb hinbekommen.
Vielen Dank!

Ok, eine Frage bleibt noch: gibt es eine Möglichkeit, dass sich der Wert automatisch aktualisiert?

LG
Juri

 

Hallo!

Diese Funktion aktualisiert sich (wie alle anderen Funktionen auch) mit jeder Neuberechnung des Blatts, also wenn neue Werte eingegeben oder vorhandene Werte geändert werden.
Leider bewirkt eine Formatänderung KEINE Neuberechnung, so dass die Funktion dadurch auch nicht aktualisiert wird.
Du kannst aber eine Neuberechnung erzwingen, indem du F9 drückst. Ist zwar ein bisschen holprig, aber geht leider nicht besser.