Werte nach farbe zusammen zählen in der ta

Forumthread: Werte nach farbe zusammen zählen in der ta

16.10.2004 09:04:12

Bachner

Hallo
Ich habe eine Tabelle und zähle die werte wie üblich G4-G25 zusammen das resultat wirt in G26 angezeigt. Wie schafe ich es aus diesem berech nur die werte zusammen zu zählen mit einer bestimten FARBE one es über den Code Makro zu regeln also irgent wie.
Vielen dank Gerhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte nach farbe zusammen zählen in der ta

=Peter=

Ich habe in einer Newsgroup von Thomas Ramel und Melanie Breden folgende Lösung gefunden:
Füge im VBA-Editor deiner Mappe ein neues Modul ein und kopiere den folgenden Code in dieses Modul. Nach dem Schliessen des VBA-Editors steht dir die Funktion im Funktions-Assistenten unter 'Benutzerdefiniert' zur Verfügung.


Function ZählenWennFarbe(varColor As Variant, rngBereich As Range, _
Optional bolFont As Boolean = False) As Double
'Idee von Melanie Breden, erweitert von Thomas Ramel / 13.10.2004
'Funktion zur Anwendung von ZÄHLENWENN mit Hintergrundfarbe
'oder Schriftfarbe als Kriterium
' - Der erste Parameter erwartet einen Zellbezug (Hintergrund/Schriftfarbe)
'   oder Farbindex (Zahl)
'   Farbindex '0' zählt Zellen ohne farbigen
'   Hintergrund/Standard-Schriftfarbe
' - Der zweite Parameter erwartet den Suchbereich
' - Der dritte Parameter erwartet Wahr/Falsch für die Festlegung
'   ob nach Hintergrund- oder Schriftfarbe gezählt werden soll
' Bsp =ZählenWennFarbe(A1;A1:A10;0)   =ZählenWennFarbe(A1;A1:A10;1)
'     =ZählenWennFarbe(3;A1:A10;0)    =ZählenWennFarbe(3;A1:A10;1)
'Zur automatischen Aktualisierung im Tabellenblatt den folgenden Term
'anhängen: +(0*JETZT()) und F9 drücken
'Also z.B. wie folgt: =ZählenWennFarbe(A1;A1:A10)+(0*JETZT())
Dim intColor As Integer
Dim rngCell As Range
If bolFont Then
If IsObject(varColor) Then
intColor = varColor(1).Font.ColorIndex
Else
intColor = varColor
End If
For Each rngCell In rngBereich
If rngCell.Font.ColorIndex = intColor Then
ZählenWennFarbe = ZählenWennFarbe + 1
End If
Next
Else
If IsObject(varColor) Then
intColor = varColor(1).Interior.ColorIndex
Else
intColor = varColor
End If
For Each rngCell In rngBereich
If rngCell.Interior.ColorIndex = intColor Then
ZählenWennFarbe = ZählenWennFarbe + 1
End If
Next
End If
End Function

AW: Werte nach farbe zusammen zählen in der ta

ransi

hallo gerhard
ohne makro aber dafür mit Hilfszeile könnte so gehn:
https://www.herber.de/bbs/user/12192.xls
ransi

AW: Werte nach farbe zusammen zählen in der ta

ransi

hallo gerhard
ohne makro aber dafür mit Hilfszeile könnte so gehn:
https://www.herber.de/bbs/user/12192.xls
ransi

sorry, F 26 muss heissen : alle Roten

ransi

Beliebteste Forumthreads (12 Monate)

Werte nach farbe zusammen zählen in der ta

Forumthread: Werte nach farbe zusammen zählen in der ta

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Werte nach farbe zusammen zählen in der ta

Forumthread: Werte nach farbe zusammen zählen in der ta

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread