Ich möchte alle Werte in einer Spalte aufaddieren, allerdings nur, wenn der Zellwert mit einem bestimmten Muster (z.Bsp. grün) hinterlegt ist. Alle anderen Werte sollen von der Summierung ausgeschlossen werden. Geht das?
Ich möchte alle Werte in einer Spalte aufaddieren, allerdings nur, wenn der Zellwert mit einem bestimmten Muster (z.Bsp. grün) hinterlegt ist. Alle anderen Werte sollen von der Summierung ausgeschlossen werden. Geht das?
falls Du nicht die bedingte Formatierung angewendet hats
In Zelle=Farbsumme(A1:A10;3)
Function Farbsumme(Bereich As Range, Farbe As Integer)
' Schriftfarb
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function
In Zelle für Farbe weiß =Farbsumme(A1:A10;2)
Function FarbsummeH(Bereich As Range, Farbe As Integer)
' Hintergrund
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
FarbsummeH = FarbsummeH + Zelle
End If
Next
End Function
gruß Hajo
läßt sich so eine "Farbabfrage" auch in eine einfache Formel packen? Oder gehts nur mit Makro?
Danke. Kerstin
Dein Problem geht nun bloß über VBA zu lösen bzw. ich glaube ich habe schon mal was gelesen über eine Hilfsspalte. Aber leider sitze ich jetzt nicht an meinem Hauptrechner und kann jetzt die Lösung nicht posten.
Gruß Hajo
jetzt sitze ich an meinem Hauptcomputer und jetzt kann ich Dir auch die Lösung ohne VBA schreiben.
375. Per Textfarbe einer Zelle abfragen
die formatierten Zellen stehen in A1bis A10 dann B1:B10 markieren, über Einfügen/Namen/Festlegen bei Namen in der Arbeitsmappe einen Namen vergeben (bei mir Farbe). Bei bezieht sich auf
=ZELLE.ZUORDNEN(24;A1)+JETZT()*0
eingeben. In B1 =Farbe eingeben, nun stehe in B1 die Farbnummer (bei rot = 3).
Wenn du 1 oder 0 als Ergebnis in B1 haben willst:
=WENN(Farbe=3;1;0)
von Jürgen
Gruß Hajo