Ampel via VBA

Hallo zusammen,
ich weiß gar nicht, ob das überhaupt geht, was ich möchte...
Vorab schon mal vielen Dank an alle, die sich dieser Herausforderung annehmen.
In der hochgeladenen Datei
https://www.herber.de/bbs/user/130695.xlsx
sind drei Ampeln manuell eingefügt, die sich möglichst abhängig von je zwei Zellwerten (Zeilen 9 und 11) rot, gelb oder grün einfärben sollen. Die Ampel soll die beiden relevanten Werte optisch überlappen, deshalb ist die Position so gewählt. Ich bin aber offen für alternative Vorschläge. Mit einer bedingten Formatierung bin ich nicht zurecht gekommen, weil diese nicht die gewünschte Position einnimmt.
Ampellogik:
Grüne Ampel: Erreichung Kennzahl in % größer gleich 100% UND Veränderung ggü Vj. Positiv
Gelbe Ampel: entweder Erreichung Kennzahl in % kleiner 100% ODER die Veränderung ggü Vj. negativ
Rote Ampel: Erreichung Kennzahl in % kleiner 100% UND Veränderung ggü Vj. negativ
Im Feld B4 ist eine Gültigkeitsliste hinterlegt. Im Zielbild sollen sich die Werte der Tabelle abhängig von dem Wert in B4 anpassen und damit natürlich auch die jeweilige Ampel. Mit SVERWEIS und SUMMEWENNS bekomme ich das hin, aber leider nicht mit INDEX, VERGLEICH. Die Formel in Zelle D9 müsste doch funktionieren, tut sie aber nicht. Ich bin dankbar für den Stupser in die richtige Richtung bzgl. der Formel.
Ich hoffe, ich habe alle relevanten Informationen gegeben und freue mich auf eure Hinweise.
Nochmals vielen Dank vorab an alle!!!
Beste Grüße
Axel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Axel
Am Anfang war ich irritiert. Da in Zelle D1 Kennzahl1 stand. Ich hab diese Zelle nicht weiter beachtet und hab mich auf die Spalten Referenz eingestellt.
Da du aber vor Allem eine VBA-Lösung wolltest hab ich mich mal dran gesetzt.
Die Ellipsen hab ich umbenannt und zwar als Rote, Gelbe, Grüne für jede Kennzahl.
Also
Kennzahl1 Rote1, Gelbe1, Grüne1
Kennzahl2 Rote2, Gelbe2, Grüne2 etc.
Jetzt, wo ich auch das DropDown Feld in Zelle B4 beachtet hab und auch die Formel in Zelle D9
hab ich mich darangesetzt
Die Formel in Zelle D9 ist somit eine einfache SUMMEWENN Formel
Und die Änderung des DropDown löst eine Caluation aus.
Code im Modul des Tabellenblattes

Private Sub Worksheet_Calculate()
Ampel
End Sub

Code in Modul1

Sub Ampel()
' 1. Ampel ************************************************************************************* _
Tabelle1.Shapes.Range(Array("Rote1", "Gelbe1", "Grüne1")).Fill.ForeColor.RGB = RGB(192, 192, _
192)
If Range("D9") >= 1 And Range("D11") > 0 Then
Tabelle1.Shapes.Range(Array("Grüne1")).Fill.ForeColor.RGB = RGB(146, 208, 80)
End If
If (Tabelle1.Range("D9")  0) Or (Tabelle1.Range("D9") _
>= 1 And Tabelle1.Range("D11") = 1 And Tabelle1.Range("G11") > 0 Then
Tabelle1.Shapes.Range(Array("Grüne2")).Fill.ForeColor.RGB = RGB(146, 208, 80)
End If
If (Tabelle1.Range("G9")  0) Or (Tabelle1.Range("G9") _
>= 1 And Tabelle1.Range("G11") = 1 And Tabelle1.Range("J11") > 0 Then
Tabelle1.Shapes.Range(Array("Grüne3")).Fill.ForeColor.RGB = RGB(146, 208, 80)
End If
If (Tabelle1.Range("J9")  0) Or (Tabelle1.Range("J9") _
>= 1 And Tabelle1.Range("J11")

Gruss Werni
https://www.herber.de/bbs/user/130705.xlsm

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread