Anzeige
Archiv - Navigation
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenteilsummen über Farbe

Spaltenteilsummen über Farbe
17.03.2003 13:57:25
Manfred
Hallo, ein kleines Summenproblem. Wie kann ich aus Werten in einer Spalte Teilsummen über das gleiche Format bilden, z.B. gleiche Farbe oder kursiv oder fett.
Danke Manfred

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Spaltenteilsummen über Farbe
17.03.2003 13:59:54
Matthias Gäbisch

Mit Farbe hier:

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

Ohne VBA mit ZELLE.ZUORDNEN
17.03.2003 14:13:08
Boris

Hi Manfred,

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


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige