ZählenWenn bei einer bestimmten Füllfarbe
Christoph Völkert
ich benötige eure Hilfe bei einem Problem die Anzahl bestimmter Zellen zu
zählen.
Ich habe in einer Spalte Zellen mit verschiedenen Füllfarben.
Ich möchte mit der Tabellenfunktion "Zählenwenn" die Anzahl der Zellen mit
einer bestimmten Farbe zählen.
Ich probiere nun schon einige Zeit herum, komme aber nicht ans Ziel.
Ich hoffe einer von euch kann mir helfen.
An dieser Stelle schon einmal vielen Dank für die Mühe.
Gruß
Christoph
Hajo
über eine Hilfsspalte in der die Farbe als Zahl dargestellt wird. Schaue
hierzu mal hier
http://spotlight.de/zforen/mse/m/mse-1053793242-11729.html
Gruß Hajo
"Christoph Völkert" <Christoph...@t-online.de> schrieb im Newsbeitrag
news:e%23nyZ9fJ...@TK2MSFTNGP11.phx.gbl...
Matthias Nüßlein
ich hatte vor kurzer Zeit ein ähnliches Problem.
Folgende Lösung sollte Dir weiterhelfen.
Zur Berechnung kannst du eine benutzerdefinierte Funktion verwenden.
Füge folgende Funktion im VBA Editor in ein allgemeines Modul ein:
Function CountColor(iColor As Byte, ParamArray rngArea()) As Double
Dim rngCell As Range
Dim varArea As Variant
Application.Volatile
For Each varArea In rngArea
For Each rngCell In varArea
If rngCell.Interior.ColorIndex = iColor Then
CountColor = CountColor + 1
End If
Next
Next
End Function
Im Tabellenblatt kannst du nun folgende Formel in eine Zelle schreiben:
=CountColor(3;A1:A10) ' zählt alle Zellen mit rotem Hintergrund im Bereich
A1:A10
Hast du getrennte Bereiche, führe sie durch Simikolons getrennt auf:
=CountColor(3;A1:A10;C1:C10)
Wenn du die Farbpalette nicht geändert hast, hat die Farbe Rot den Index 3.
Folgende Prozedur listet in einem neuen Blatt die Indexe der Farben auf.
Sub FarbenAuflisten()
Dim i As Byte
On Error Resume Next
Sheets.Add.Name = "Farbindex"
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = i
Next
End Sub
Gruß
Matthias
----------------------------------
"Christoph Völkert" <Christoph...@t-online.de> schrieb im Newsbeitrag
news:e%23nyZ9fJ...@TK2MSFTNGP11.phx.gbl...
Melanie Breden
wenn du andere Leute Antworten 1:1 kopierst und hier rein stellst,
solltest du wenigstens den Autor angeben.
Danke für dein Verständnis.
--
Mit freundlichen Grüßen
Melanie Breden
_____________________
[Microsoft MVP für Excel]
"Matthias Nüßlein" <m...@vr-web.de> schrieb im Newsbeitrag news:e7mS7tgJ...@TK2MSFTNGP11.phx.gbl...
Matthias Nüßlein
leider habe ich vergessen meine Quelle mit anzugeben.
Wird in der Zukunft nicht mehr passieren.
Gruß
Matthias
"Melanie Breden" <Melanie...@mvps.org> schrieb im Newsbeitrag
news:e9vUIthJ...@TK2MSFTNGP12.phx.gbl...
Thomas Ramel
Christoph Völkert schrieb:
>
> Ich habe in einer Spalte Zellen mit verschiedenen Füllfarben.
> Ich möchte mit der Tabellenfunktion "Zählenwenn" die Anzahl der Zellen mit
> einer bestimmten Farbe zählen.
> Ich probiere nun schon einige Zeit herum, komme aber nicht ans Ziel.
> Ich hoffe einer von euch kann mir helfen.
In einer Erweiterung von Melanies Funktion kannst Dufolgendes verwenden:
Function ZählenWennFarbe(Farbe As Range, ParamArray Bereiche()) As Double
Application.Volatile
Dim rngCell As Range
Dim varArea As Variant
Dim intColor As Integer
intColor = Farbe(1).Interior.ColorIndex
Application.Volatile
For Each varArea In Bereiche
For Each rngCell In varArea
If rngCell.Interior.ColorIndex = intColor Then
ZählenWennFarbe = ZählenWennFarbe + 1
End If
Next
Next
End Function
Im Tabellenblatt dann die folgende Eingabe:
=ZählenWennFarbe(A1;B1:B10)
...wenn A1 in der gesuchten Farbe formatiert ist.
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
[Win 2000Pro SP-3 / xl2000 SP-3]
Jollenkreuzer
ich hoffe ich bekomme noch eine Antwort.
Ich habe auch ähnlich programmiert. Habe aber das Problem, dass er aufsummiert über mehrere Arbeitsblätter. Das will ich nicht :-(. Er soll für jeden angegebenen Bereich eine separate Zählung machen. Wo liegt mein Fehler?
Gruß
JZ
HR Ernst
anzugeben und deine Frage so detailiert darzustellen, dass ein
Hilfswilliger nicht etliche Zusatzfragen stellen muss, um dein "Problem"
nachvollziehen und evtl. Lösungsvorschläge geben zu können? Oder ist das
zu viel verlangt?
Wenn dir deine Zeit zum Tippen solcher Angaben zu schade ist, dann erwarte
keine Antwort. Dann erstelle aber auch kein Posting.
--
Gruß
HR Ernst