Bedingte Formatierung leider auch in angrenz. Zell
01.05.2015 12:39:07
Katinka
die Funktion bedingte Formatierung macht mehr als sie soll.
Mithilfe des Makrorecorders habe ich es geschafft folgende bedingte Formatierung in ein Makro einzubauen :
Range("A3:P3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$C3>""200000000000"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.Copy
Range("A4:P300").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Ist für Kenner noch chaotisch, funktioniert aber. Danach kommt nur noch speichern der Mappe.
Wenn ich anschließend neben den markierten Zeilen etwas in die Spalten schreibe, werden aber auch diese Zellen markiert. Das habe ich versucht damit zu unterbinden:
Range("Q1:AB300").Select
Selection.FormatConditions.Delete
Das wird von Excel jedoch vollkommen ignoriert. Nach wie vor werden die Spalten neben den markierten Zellen ebenfalls markiert sobald etwas in die Zellen geschrieben wird.
Weiß jemand wie man das verhindern kann.?
Grüße
Katinka