Summenbildung nach textfarbe

ich habe mal ne frage zu einer funktion, die es wahrscheinlich so nicht gibt.
=summewenn(Bereich;Suchkriterium) (beipiel zum verständis)
der Bereich sind ca. 96 zeilen in einer spalte, das suchkriterium soll jedoch abhängig von der textfarbe der einzelnen zellen in deisem bereich sein.
ziel soll sein aus einem bereich die summe zu bilden, wo die textfarbe der zelle nur blaue (colorindex=5) und/ oder nur grüne (colorindex=4) ist.
weitere zielstellung: ändert man in dem bereich die textfarbe einer zelle in grün, so soll die summe automatisch sich anpassen ohne das man ein button anklickt ergo ein markro manuell ausführen muss, auch ein makro beim verlassen der zelle ist nicht sinvoll.
kompatibel sollte es ab version 2000 bis 2007 sein.
vielen dank im voraus für lösungen oder denkanstöße
p.s. alternativ käme mir auch der gedanke eine eigene formel zu hinterlegen. anstatt =summe(bereich) mal =eigenesumme(bereich). nur wie und ob dies möglich ist, habe ich zu wenig erfahrung.
mod

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

weitere zielstellung: ändert man in dem bereich die textfarbe einer zelle in grün, so soll die summe automatisch sich anpassen ohne das man ein button anklickt ergo ein markro manuell ausführen muss, auch ein makro beim verlassen der zelle ist nicht sinvoll.

Function SumFarbe(Rng As Range, intColor As Integer) As Double Dim rngAktuell As Range Dim dblAddition# Application.Volatile For Each rngAktuell In Rng.Cells If IsNumeric(rngAktuell) Then If rngAktuell.Font.ColorIndex = intColor Then dblAddition = dblAddition + rngAktuell.Value End If End If Next rngAktuell SumFarbe = dblAddition End Function

Vielen Dank für die Hinweise.
Ein ähnliches Script wie Daniel habe ich nun auch erstellet. (nach mühsamer Studierung von meinen VBA und Excel Büchern.)
Das Script von Daniel ist allerdings ein Tick ausgereifter.

Public Function SumFarbe(Rng As Range, intColor As Integer) As Double Dim rngAktuell As Range Dim dblAddition# Application.Volatile For Each rngAktuell In Rng.Cells If IsNumeric(rngAktuell) Then If rngAktuell.Font.ColorIndex = intColor Then dblAddition = dblAddition + rngAktuell.Value End If End If Next rngAktuell SumFarbe = dblAddition End Function

Nun noch eine kleine Frage zur Funktion:
Ich schreibe über ein Makro die Formel in ein Celle, damit die Celle automatisch rechnen kann:
Worksheets(arbeitsblatt).Cells(rszeile, rsspalte + x).Formula = "=SumFarbe(R[-3]C[0]:R[-" & rswerte + 2 & "]C[0];5)"
Das Problem ist das ein Fehler ausgelösst wird, da das ";" in der Formel stört. Gibt es da Lösungsanätze?
Ich kann zwar für jede Formel eine eigene Function schreiben wie für blau:


Public Function SumFarbe(Rng As Range) As Single
Dim rngAktuell As Range
Dim dblAddition#
Application.Volatile
For Each rngAktuell In Rng.Cells
If IsNumeric(rngAktuell) Then
If rngAktuell.Font.ColorIndex = 5 Then
dblAddition = dblAddition + rngAktuell.Value
End If
End If
Next rngAktuell
SumFarbe = dblAddition
End Function

Und die Schreiberrei übers Makro in die Celle funktioniert dann auch:
Worksheets(arbeitsblatt).Cells(rszeile, rsspalte + x).Formula = "=SumFarbe(R[-3]C[0]:R[-" & rswerte + 2 & "]C[0])"
Aber wie gesagt wenn es nach mir gehen soll, würde ich gerne eine globale Funktion, wie die van Daniel, die ja auch funktioniert, solange man direkt in der Tabelle damit arbeitet.
z.B. =SumFarbe(C3:C98;5)
Vielen Dank

Public Function SummeFarbe(Summenbereich As Range, _ ZelleMitderFarbe As Range, _ Optional bFillColor As Boolean = False) As Double Application.Volatile Dim rC As Range For Each rC In Summenbereich If bFillColor Then If rC.Interior.ColorIndex = ZelleMitderFarbe.Cells(1, 1).Interior.ColorIndex Then _ SummeFarbe = SummeFarbe + rC.Value Else If rC.Font.ColorIndex = ZelleMitderFarbe.Cells(1, 1).Font.ColorIndex Then _ SummeFarbe = SummeFarbe + rC.Value End If Next End Function

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

65 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summenbildung nach textfarbe

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

65 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread