Danke Manfred
Function FarbenAddieren(rngBereich As Object)
Dim rngAct As Range
Dim dblAdd As Double
For Each rngAct In rngBereich.Cells
If rngAct.Interior.ColorIndex = _
Application.Caller.Interior.ColorIndex Then
dblAdd = dblAdd + rngAct
End If
Next rngAct
FarbenAddieren = dblAdd
End Function
Habe ich aus dem Forum.
Gruß Matze
definiere über Einfügen-Namen-Festlegen den Namen "Fett" - bezieht sich auf:
=ZELLE.ZUORDNEN(20;INDIREKT("ZS(-1)";0))
In Spalte A ab A1 stehen deine Zahlen. Schreibe in B1 (immer rechte Nachbarzelle):
=FETT
und kopier das runter.
Als Ergebnis erhälst du WAHR oder FALSCH.
Mit
=SUMMEWENN(B:B;WAHR;A:A)
addierst du dann alle Fett-gedruckten.
Für Kursiv - Name z.B. "Kursiv"
=ZELLE.ZUORDNEN(21;INDIREKT("ZS(-1)";0))
Für farbigen Zellhintergrund (egal welcher) - Name "Farbe"
=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";0))>0
etc. etc.
Gruß Boris