Bedingte Formatierung

[Kuwer]

Hallo,

hier mal exemplarisch für die Zelle H5. Die Formeln in der Bedingten Formatierung sind:

	F	G
5	Grün	99
6	Gelb	99
7	Rot	99

Formeln der Tabelle

Zelle Formel G5 =WAHL($H$5;99;99;99;0;99;99;0;99;99;0) G6 =WAHL($H$5;99;99;0;99;99;0;99;99;0;99) G7 =WAHL($H$5;0;99;99;99;0;99;99;0;99;99)

   

Gruß Uwe

[spodec]

Geil! Genauso habe ich es mir vorgestellt. Funktioniert perfekt! Danke dir!

---

Ein Problem ist doch noch aufgetaucht. Für eine Zelle funktioniert es perfekt. Ich habe aber nun einen gesamten Bereiche, auf den ich es anwenden will. Wenn ich in der Formel nun die Zelle mit dem Bereich ersetze:

=WAHL($A$1:$F$10;99;99;99;0;99;99;0;99;99;0)

färbt er mir zwar eine Zelle ein, wenn ich eine Zahl hineinschreiben, allerdings immer in abhängig vom Zellinhalt von A1. Steht in A1 nichts drin, erscheint auch kein Symbol.

[schauan]

Hallöchen,

der Bezug zu A1 in allen Zellen ergibt sich aus der absoluten Adressierung $A$1

Markiere A1:F10 und gib bei der bedingten Formatierungsformel nur A1 ein und nicht $A$1 oder gar $A$1:$F$10
Oder, wenn es in allen Zellen einer Zeile auf Spalte A dieser Zeile verweisen soll, dann $A1

[Kuwer]

Hallo,

den Nachtrag von spodec habe ich leider nicht mitbekommen.  :22:

Hast Du Deine Empfehlung getestet, André? Bei mir in E2010 gehen nämlich keine relativen Bezüge, sonst hätte ich diese genommen. 

   

Gruß Uwe

[schauan]

HI Uwe,

und ich hab den "Vortrag" nicht gelesen bzw das Bild nicht berücksichtigt. Schien für mich derart simpel nur die Frage :20:

[Kuwer]

Hallo spodec,

da das viel Fleißarbeit bedeuten würde, jede Zelle einzeln mit je 3 Formeln zu "bestücken", kann ich Dir ein Makro anbieten.
Du musst nur den entsprechenden Zellbereich markieren und dann das Makro starten.

Sub SetzeAmpelformatierung()

  Dim rngZelle As Range

  Dim strZelle As String

  For Each rngZelle In Selection.Cells

    With rngZelle

      strZelle = .Address(1, 1)

      .FormatConditions.Delete

      .FormatConditions.AddIconSetCondition

      .FormatConditions(rngZelle.FormatConditions.Count).SetFirstPriority

      With .FormatConditions(1)

        .ReverseOrder = False

        .ShowIconOnly = True

        .IconSet = ActiveWorkbook.IconSets(xl4TrafficLights)

        With .IconCriteria(2)

          .Type = xlConditionValueFormula

          .Value = "=WAHL(" & strZelle & ";0;99;99;99;0;99;99;0;99;99)"

          .Operator = 7

        End With

        With .IconCriteria(3)

          .Type = xlConditionValueFormula

          .Value = "=WAHL(" & strZelle & ";99;99;0;99;99;0;99;99;0;99)"

          .Operator = 7

        End With

        With .IconCriteria(4)

          .Type = xlConditionValueFormula

          .Value = "=WAHL(" & strZelle & ";99;99;99;0;99;99;0;99;99;0)"

          .Operator = 7

        End With

      End With

    End With

  Next rngZelle

End Sub

Gruß Uwe

[spodec]

Wow, Danke!