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!