Hallo,
hier mal exemplarisch für die Zelle H5. Die Formeln in der Bedingten Formatierung sind:
| 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) |
|
[
attachment=29077]
Gruß Uwe
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.
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
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.
[
attachment=29176]
Gruß Uwe
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:
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