Ampelfarbe Automatik

Hallo,
ich habe hier mal wieder etwas und weiß nicht weiter.
Ich habe eine Ampel, die den Gesamtstatus wiedergibt. Momentan funktioniert diese manuell per Mausklick. Ich hätte da gerne eine Automatik drin.
Ich habe also eine Spalte mit der ich durch Ampelfarben etwas bewerte. Der GEsamtstatus soll immer den schlechtesten Fall darstellen (Rot=n.i.O; Gelb=mittel; Grün=i.O).
Ist die Spalte also grün und eine Zelle rot, dann Ampel gleich rot. Das gleiche mit Rot/gelb und gelb/grün. Wenn alles grün, dann Ampel grün. Ich bekomme diese Abfrage nicht rein.
In der Beispielliste mal die momentane manuelle Version.

Die Datei https://www.herber.de/bbs/user/93152.xlsm wurde aus Datenschutzgründen gelöscht

Vielleicht kann mir ja jemand helfen.
Grüße,
Björn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function HFarbeZählen(Bereich As Range, Farbe As Integer) Dim Zelle As Range Application.Volatile For Each Zelle In Bereich If Zelle.Interior.ColorIndex = Farbe Then HFarbeZählen = HFarbeZählen + 1 End If Next Zelle End Function

Hi
es gibt derzeit (Office 2010) in Excel und VBA nur eine Methode, welche die Farben, die durch die bedingte Formatierung erzeugt werden, erkennen und verarbeiten kann.
Das ist der AUTOFILTER.
Alle anderen Metoden und Abfragen greifen immer nur auf die normalen Formte der Zelle zu.
Wenn du also direkt die Farben der Bedingten Formatierun für die Steuerung der Ampel verwenden willst, müsstest du:
- alle Werte in einer Spalte haben
- die Spalte der Reihe nach grün/gelb/rot filtern
- überprüfen, wieviele sichtbare Zeilen die gefilterter Liste hat und wenn mehr als keine, dann die entsprechende Ampelfarbe setzen
da das meistens nicht so praktikabel ist, überprüft man lieber die Werte und setzt die Ampelfarbe ausgehend von den Zellwerten (wenn man in der Programmierung die selben Bedingungen verwendet wie in der Bedingten Formatierung sollte auch dasselbe rauskommen).
es gab in der zwischenzeit schon einige Versuche dieses Problem zu lösen, aber die Lösungsansätze sind so kompliziert, dass sie für den Normalanwender nicht praktikabel sind.
Gruß Daniel

If Worksheetfunction.CountIf(Range("B:B"), "grün") > 0 Then iMax = 1 IF Worksheetfunction.CountIf(Range("B:B"), "gelb") > 0 Then iMax = 2 If Worksheetfunction.CountIf(Range("B:B"), "rot") > 0 Then iMax = 3

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread