Hallo Zusammen,
ich versuche gerade mit VBA eine Bedingte Formatierung zu erstellen.
Dazu sollen bestimmte Zellen (verteilt im Sheet) blau markiert sein wenn sie leer sind. Sobald Werte eingefügt werden, soll die Hintergrundfarbe wieder weg sein.
Über die Funktion "Makro aufzeichnen" habe ich folgenden Code erhalten:
Range("C12:E15,C17:E17,C21:E21").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=LÄNGE(GLÄTTEN(E21))=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
Jedoch funktioniert er nicht mehr beim nochmaligen Ausführen. Die Zellfarbe ändert sich nicht beim Ausfüllen der leeren Zellen.
Ich muss das Formatieren der Zellen über den Code machen, da die Formatierung noch von anderen Makros beeinflusst werden und die Zellen damit öfters neu formatiert werden und dann mit dieser Makro wieder zurück formatiert werden sollen...bei bedarf.
ich hoffe mir kann hierbei jemand helfen.
Liebe Grüße
Irene
|