Moin ihr Lieben!
Folgendes Problem:
Ich habe mit VBA einen Code programmiert, der mir aus vielen Tabellen bestimmte Spalten nach Kriterien heraus filtert und in einem neuen Tabellenblatt anlegt. Soweit auch alles gut.
Nun habe ich eine Spalte in der Prozentzahlen auftreten und diese möchte ich je nach Kriterien farblich markieren, also den Hintergrund.
Alles was kleiner als 5 ist, soll rot markiert werden, auch negative Zahlen. Alles was zwischen 5 und 10 liegt soll gelb markiert werden und alles über 10 grün.
Nun dachte ich, ich spare mir die Arbeit und wende die bedingte Formatierung an, nur leider ist die jedes Mal weg, wenn ich mein Makro starte, da die Liste täglich aktualisiert wird und die Spalteneinträge dafürt gelöscht werden. Also probierte ich die Möglichkeit aus, unter laufen lassen des Makro Rekorders die bedingte Formatierung auszuführen und das Makro einfach in meinem Zielmakro am Ende aufzurufen.
Da passiert auch was, aber er markiert die Überschrift auch grün, die soll weiß bleiben, die Werte kleiner als 5 rot und die größer 10 in grün, aber im Zwischenbereich passiert nichts und die Hintergründe bleiben weiß. Das Makro ist unten aufgeführt.
Hat Jemand eine Idee?
Danke euch schon mal! :)
Sub Farbig()
'
' Bedingt Makro
'
' Tastenkombination: Strg+Umschalt+B
'
Columns("C:C").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=10"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=5"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=5", Formula2:="=10"
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
End Sub
|