Office - Word, Excel und Co. 9.706 Themen, 40.868 Beiträge

farbige Zellen addieren in Excel

Alf / 10 Antworten / Flachansicht Nickles

ich will in einer Tabelle in jeder Zeile "interessante" Zahlen mit farbigen Hintergrund markieren (per Hand, bedingte Formatierung geht bei der Tabelle nicht, da an keine Regeln gebunden..), diese sollen dann automatisch in einer Summenspalte aufaddiert werden.


 


gibt es diese Mgl. so nach dem Beispiel:


wenn der Hintergrund einer Zelle (von A3 bis M3) grün ist, so addiere all diese grünen Zellen in der Zelle x3..., wenn nicht (also rot oder blau oder garnicht), sollen diese Zellen in der Zeile bei der Addition ignoriert werden


möglich? und wie?


bin über jeden Tip dankbar

bei Antwort benachrichtigen
Kleine Hilfe Kolti
alles roger Alf
Kolti Alf „alles roger“
Optionen

Du kannst Dir jetzt einen Button stricken mit "Steuerelement-Toolbox" und den irgendwo hinpacken.

Hier hast Du noch eine Funktion zum Experimentieren, um einzelne Zellen abzufragen:

Public Function Farbe(rngColor As Range, intColor As Integer) As Boolean
If rngColor.Interior.ColorIndex = intColor Then Farbe = True
End Function

Der Aufruf ist direkt in der Zelle. Beispiel:
=Farbe(a1;1) Die Antwort in der Zelle ist Falsch oder Wahr.

Oder ein Makro, um alle Farbwerte zu ermitteln:

Sub Farbtabelle()
Dim intCounter As Integer
Workbooks.Add
For intCounter = 1 To 56
Cells(intCounter, 1).Interior.ColorIndex = intCounter
Cells(intCounter, 2).Value = intCounter
Next intCounter
End Sub

bei Antwort benachrichtigen