Zählenwenn Farbfeld?
Hallo! Ich habe Anleitung um Anleitung studiert und habe gerade gemeint, ich wäre am Ziel. Aber doch nicht. Ich möchte ZÄHLENWENN ein Feld eine bestimmt Farbe hat. Sieht eigentlich auch ganz gut aus - nur, dass das Zählergebnis nicht stimmt...
Hat jemand Erfahrungen damit? Was muss ich tun?
Vielen Dank für Eure Hilfe
Grüße, Petra
Die Hilfszahl Planung soll die Anzahl der eingefärbten Kästchen anzeigen.
4 Antworten
Hallo, ich habe Erfahrung damit und mein Tipp ist: Hände weg davon!
Man kann zwar FUNCTIONs programmieren, die Farben auslesen und damit rechnen, aber die Berechnung wird nicht neu angestoßen, wenn sich Farben ändern!
Also ist der umgekehrte Weg besser: Daten als Rechenbasis verwenden und die Farbe per bedingter Formatierung erzeugen.
Beispiel: ein Kollege muss unerledigte Aufgaben als erledigt markieren, dann soll er einen Wert (X, oder 1, oder was auch immer) in eine bestimmte Zelle schreiben, und die bedingte Formatierung reagiert darauf und macht den Status färbig sichtbar.
Ich habe doch eine Möglichkeit als FUNCTION gefunden, der Syntax ist:
=FARBENZÄHLEN(Überwachungsbereich;Farbmuster)+JETZT()-JETZT() .
Die FUNCTION Zählt im Überwachungsbereich die Anzahl der Zellen mit der Farbe der Zelle Farbmuster. Der Zusatz +JETZT()-JETZT() ist ein Trick, dass die Formel jedes Mal rechnet, wenn am Blatt irgendetwas neu zu berechnen ist. Mit F9 kannst du jederzeit eine Aktualisierung des Ergebnisses erzwingen.
Hier ein Screenshot von meinem funktionierenden Test:
das ist der VBA-Code für die Function:
Function FARBENZÄHLEN(rngBereich As Range, RngVorlage As Range) As Integer
Dim Zelle As Range
For Each Zelle In rngBereich
If Zelle.Interior.ColorIndex = RngVorlage.Interior.ColorIndex Then FARBENZÄHLEN = FARBENZÄHLEN + 1
Next Zelle
End Function
ich habe jetzt ein Makro für dich gebastelt, leider kann man im Kommentar keine Screenshots hinterlassen, deshalb versuche ich es mit Prosa.
- Markiere den zu überwachenden Bereich und gib ihm den Namen Überwachungsbereich
- Markiere den Bereich, in dem die Farben gezählt werden sollen und gib ihm den Namen Listenbereich
- Öffne mit Alt&F11 den VBA-Editor
- Doppelklick auf die zu untersuchende Tabelle
- Stelle im linken Kasten von (Allgemein) auf Worksheet um
- Stelle im rechten Kasten SelectionChange ein
- Füge diesen Code ein, er startet jedes Mal, wenn du in dem Blatt in eine andere Zelle hüpfst:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ZelleL As Range, ZelleÜ As Range
Range("Listenbereich").ClearContents
For Each ZelleL In Range("Listenbereich")
For Each ZelleÜ In Range("Überwachungsbereich")
If ZelleL.Interior.ColorIndex = ZelleÜ.Interior.ColorIndex Then
ZelleL.Value = ZelleL.Value + 1
End If
Next
Next
End Sub
Hui! Toll, danke!!! Ich probiere das nachher mal aus und berichte dann hoffentlich über Erfolge ;)
Hallo,
schön, dass Su selber nach der Lösung gesucht hast, aber wenn man sich auf der Stelle dreht ... . Dafür gibt es ja GuteFrage.
WICHTIG ! Immer mit einer Kopie vom Original arbeiten !
Zunächst das Makro, dass ich kürzlich Interessanterweise abgespeichert habe (VBA nicht so versiert).
Mit ALT+F11 VBA-Projekt aufrufen und unter "Modul1" rechts den VBA-Script eintragen oder den Text kopieren, der unter dem Fenster steht, und im Code-Fenster einfügen. Speichern und Fenster schließen.
Function ZELLFARBE(rngZelle As Range) As Integer ZELLFARBE = rngZelle.Interior.ColorIndex End Function
Datei mit *.xlsm abspeichern, damit das Makro wirksam wird.
Jetzt die Formel von mir. Damit müsste es klappen, selber getestet.
Sobald eine Farbe hinzukommt, wird diese gezählt.
ACHTUNG ! Farben mit unterschiedlichen Farbtönen können den gleichen Farbcode haben. Könnte eventuell bei grün der Fall sein.
Beispiel, diese haben den gleichen Farbcode (Color-Index):
Einfach prüfen, dass der Farbcode nicht 2x vorkommt.
Gruß Tron
Eigentlich wäre es in deinem Fall egal, wenn die Farben mehrfach vorkommen, bzw. verwendet werden, denn Du beziehst dich auf einen Bereich, wo nur eine Farbe vorkommt.
Gruß Tron
Lieber Tron, Wahnsinn! Danke! Excel ist ja wirklich ein Zauberkasten, wenn man's kann. Mal sehen, ob ich das hinbekomme!
Viele Grüße, Petra
Oh weh, ich kriege das wohl nicht hin. Ich scheitere schon beim Öffnen eines VBA-Projekts. Auf die Tastenkombination Alt+F11 reagiert das Programm leider gar nicht. Unter "Ansicht" finde ich nur ein Feld "Makros". Was sich da öffnet sieht aber ganz anders aus als das was du gezeigt hast.
Hallo,
sorry, Du hast noch kein "Modul", dass erst erstellt werden muss.
Leider kann man bei Kommentare keine Abbildung beifügen
Mache folgende Schritte:
Alt gedrückt halten, dann F11.
Klicke im Fenster "Projekt - VBAProjekt" die "Tabelle1 (Tabelle1)" an.
Unter "Einfügen", "Modul" anklicken. Jetzt erscheint rechts ein Fenster wo Du dann den VBA Code hineinkopierst, wenn nicht "Modul" Doppelklicken.
Diesen VBA Code komplett markieren, kopieren und in deinem Modul-Fenster einfügen:
Function ZELLFARBE(rngZelle As Range) As Integer ZELLFARBE = rngZelle.Interior.ColorIndex End Function
Dann mit Speicher-Icon abspeichern, dann ganz, ganz rechts oben mit X schließen.
Du kriegst das schon hin, wenn nicht melde dich nochmal.
Beim öffnen der Datei kommt bei mir eine Makro-Sicherheitswarnung ... . Ich akzeptiere diese, da ich das Makro von GuteFrage habe, ich gehe davon aus, dass es OK ist.
Gruß Tron
Hallo Petra287,
wollte mal schauen was sich da ergeben hat.
Das mit den Farben zählen ist so ne Sache.
Ich hatte mit einer Zusatzspalte gearbeitet die mit der Formel =ZELLFARBE(B7) als Beispiel auf die Tages-Daten (inkl. Markierung) bezog. Deshalb hat es bei Dir nicht funktioniert !
Außerdem funktioniert dies auch nicht bei einer "bedingten Formatierung", zur Hervorhebung von Farben.
Besser ist immer mit Datenvergleichs-Formeln diese Auszuwerten und dann durch eine "bedingte Formatierung" hervorheben. Kurz erwähnt, aber oft aufwendig.
Ich gehe davon aus, dass eine adäquate Lösung gefunden wurde.
Gruß Tron
Da es NICHT über bedingte Formatierung eingefärbt wird, kann auch kein Zählenwenn die Dinge ermitteln. Also benötigt man VBA. Und dies wäre nicht zwingend zuverlässig wenn verschiedene Leute die Dinge ändern können, da dann ggf andere Nuancen bei der Farbwahl möglich sind. Somit wäre dann auch VBA nicht zuverlässig. ..aber die aktuell einzige Möglichkeit.
Na ja. VBA als solches zu kennen ist eine schwierigere Sache.
Isoliert eine Funktionalität einzubauen, die jemand anders schon gelöst hat doch eigentlich leicht.
Farbige Zellen zählen (VBA) | Herbers Excel-Forum
Ich sehe auf deinem Bild ja nicht, in welcher Zeile sich deine Formel befindet.
Die sichtbaren Felder K:M haben jedenfalls keine sichtbaren Werte eingetragen, so dass ich nicht weiß, warum du einen anderen Wert als "0" erwartest.
Hallo gfntom, der Wert ist ja in diesem Fall die Farbformatierung. Soll eigentlich gehen. Drum wird die Farbe vorher als Code definiert (hier 43 für grün), die dann in der Formel verwendet wird.
Das ist ein typisches Beispiel von einem falschen Konzept:
in einem Tabellenkalkulationsprogramm Information in die Formatierung zu packen!
Um welche Anwendung geht es denn überhaupt? Ich bin von Excel ausgegangen.
Drum wird die Farbe vorher als Code definiert (hier 43 für grün)
Wie und wo wird das gemacht?
Ich sehe nur eine Formel, die mit ZÄHLENWENN bestimmte Zellen auf deren Inhalt absucht.
Hallo gfntom, ich weiß, dass das nicht die üblichste bzw. günstigste Herangehensweise ist. Allerdings gibt es quasi so viele Informationen, die gleichzeitig sichtbar sein müssen, dass ich verschiedene Informationsebenen nutzen muss/möchte. Die Zellen sind bereits mit Informationen gefüllt und müssen darüber hinaus dann noch gekennzeichnet werden (hier mit Farbe). Und die Anzahl der Kennzeichnungen muss ich eben dann wissen und weiterverarbeiten... Ich ahnte schon, dass das nicht so leicht wird..
Füg eine Hilfsspalte ein, trag dort einen Zahl ein und färbe dann die entsprechenden Zellen mit bedingter Formatierung. Damit bist du all deine Probleme los und es ist auch nicht mehr Aufwand beim ausfüllen der Tabelle.
Und ich sehe immer noch nicht, warum dein ZÄHLENWENN nicht auf den Zelleninhalt zugreifen sollte.
Meine Frage, wie denn die "Codezuordnung" funktioniert, hast du leider auch nicht beantwortet.
Das "Codieren" habe ich nach dieser Anleitung gemacht. Das lief auch alles prima. Nur klappt es dann letztlich mit der Zählung nicht.
Das Problem ist, dass es keinen Kausalzusammenhang zwischen Inhalt der Zelle und Färbung gibt. Völlig unabhängig davon, keiner für das Programm nachvollziehbaren Regel folgend, müssen diese Zellen zum Einen sichtbar markiert/für das Auge abgegrenzt werden und gleichzietig gezählt werden.
Das Problem ist, dass es keinen Kausalzusammenhang zwischen Inhalt der Zelle und Färbung gibt. Völlig unabhängig davon, keiner für das Programm nachvollziehbaren Regel folgend, müssen diese Zellen zum Einen sichtbar markiert/für das Auge abgegrenzt werden und gleichzietig gezählt werden.
Das habe ich verstanden und dir oben eine Lösung für das Problem vorgeschlagen
Hallo Hannes, wie schade! Genau darum geht es mir natürlich ... dass auch bei Farbänderungen mitgezählt wird. Einen Wert eintragen ist leider schwierig, da die Felder bereits andere Werte enthalten, die sichtbar bleiben müssen. Und die Färbungen folgen hier auch keiner Logik sondern werden händisch (quasi beliebig) vorgenommen. Danach will ich sie aber zählen.
Keine Chance? Verflixt. das muss doch irgendwie gehen ...