Thema: Summieren von Werten mit gleicher Schriftfarbe

Home

Gruppe

UDF

Problem

Über eine benutzerdefinierte Funktion sollen die Zellen einer vorgegebenen Schriftfarbe summiert werden. Als zweiter Parameter der Funktion wird der Farbindex der Schrift gefordert.

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: Modul1

Function SumFontColor(rng As Range, iColor As Integer) As Double
   Dim rngAct As Range
   Dim dAdd As Double
   For Each rngAct In rng.Cells
      If IsNumeric(rngAct.Value) Then
         If rngAct.Font.ColorIndex = iColor Then
            dAdd = dAdd + rngAct.Value
         End If
      End If
   Next rngAct
   SumFontColor = dAdd
End Function

Sub a()
MsgBox ActiveCell.Font.ColorIndex
End Sub

Beiträge aus dem Excel-Forum zu den Themen UDF und Summewenn

summewenn verbessern	SUMMEWENN über mehrere
Summewenn mit Bezug auf ein Datum	@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen	Summewenn mit meheren Kriterien/Blaettern
Filtern oder Summewenn !?	Summewenn/Summenprodukt mit mehreren Kriterien
Summewenn = Zählenwenn (bei 0)	Summewenn mit abhängigen Bereichen
Summewenn mit abhängigen Bereichen	Frage zu summeWenn
SUMMEWENN auf verschiedene Spalten	summewenn mit Zelle als Suchkriterium
Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage)	SummeWenn
summewenn	Formel-anfrage - mehrere Kriterien bei SummeWenn .
Ergebnis UDF ändert, wenn Tabelle deaktiviert wird	summewenn? oder zählenwenn?
UDF soll nicht auf Daten anderer Dateien zugreifen	summewenn() mit 2 Bedingungen
summewenn	vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic	Kombination Wenn- und Summewennformel
Summewenn in VBA	Summewenn kombiniert mit Datum
SUMMEWENN mit 2 Kriterien eines davon Datum	Summewenn aus mehreren Spalten
Summewenn Datum mit Bedindung	Summewenn Userform langsam
SummeWenn verschachtelt	summewenn
Summewenn	Teilergebnis mit SummeWENN(..)
SUMMEWENN Kopieren wenn Werte übereinstimmenst.	SUMMEWENN Bereich aus anderer Zelle lesen
SummeWenn	Summewenn Ergebniss soll stehen bleiben
summewenn mit mehr als zwei bedingungen	Verschachtelung SUMMEWENN
ZählenWennund SummeWenn	Summewenn in Verbindung mit "Zeichenformat"
Summewenn anzienen während Zeitdauer	Summewenn und zählenwenn und summenprodukt
SummeWenn ?	summewenn über mehrere Blätter
Summewenn mehrere Bedingungen, Zwischen, Text	Zahl aus Zelle mit SUMMEWENN verknüpfen