Office: Bedingte Formatierung per VBA

Guten Morgen,

ich will gerne über eine bedingte Formatierung (3-Farben-Skala) ermitteln inwiefern die Werte aus verschiedenen Zellen voneinander abweichen.
Ich habe es mit dem Makrorekorder aufgenommen und will den Code nun anpassen.

PHP:

         'Zellen bedingt farbig formatieren um Unterschiede zwischen eingetragenen und tatsächlichen Werten zu erkennen
Cells(Monat + 6, Tag + 14).Select
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

'eingetragener Wert zu gering --> Gelb
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueFormula
Selection.FormatConditions(1).ColorScaleCriteria(1).Value = "=$G$17-0,5"
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 8711167
End With

'eingetragener Wert in Ordnung --> Grün
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValueFormula
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = "=$G$17"
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8109667
End With

'eingetragener Wert zu hoch --> Rot
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueFormula
Selection.FormatConditions(1).ColorScaleCriteria(3).Value = "=$G$17+0,5"
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 5460991
End With


:)

 

Hi,

versuche es mal nach diesem Prinzip:

Code:

 

\@ms-office-nutzer

Willst du in einer Schleife für jede Zelle ein Bed. Formatierung setzen?

Wieviele Werte sind es?

 

Danke für die schnelle Hilfe. Die Fehlermeldung ist jetzt weg. Der Algorithmus macht aber noch nicht so richtig was ich will. Ich hänge die Datei mal mit an.

Die Werte sollen, wie in der Farbskala der Excel-Datei angegeben, bei entsprechender Abweichung oder Übereinstimmung farbig markiert werden.

Momentan ist es leider so, dass die Zellen alle weiß bleiben. Ich bitte nochmal um deine Excel-Kenntnisse.

Ich habe es mit .Value statt mit .Address gemacht, da ich bei meiner Recherche herausgefunden haben, dass beides einen Wert zurückgibt. Die Unterschiede habe ich leider nicht wirklich herauslesen können.

@xlph
Ja, siehe Anhang

 

Hi,

wenn ich dich richtig verstanden habe, soll mit der letzten Zelle in Spalte B des jeweiligen Tages verglichen werden - dann müsste der Teil so heißen:

Code:

bzw. so:

Code:

und so:

Code:

Auf Select kannst du übrigens versichten:

Code:

 

Es funktioniert einwandfrei. Ich danke dir.