Bedingte Formatierung -die zweite
ChrisW
Jetzt wo ich die Formel für die Bedingte Formatierung gefunden habe, möchte ich diese natürlich auch auf alle Zellen anwenden.
Das habe ich mit folgendem Makro gemacht, aber das Ergebnis ist nicht wirklich das was ich haben wollte :c(
Hier mein Makro:
Sub BedingteFormatierung()
LetzteZeile = ActiveSheet.UsedRange.Rows.Count
For Each ZELLE In ActiveSheet.Range("A1:IE" & LetzteZeile)
ZELLE.Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=CELL(""protect"";Zelle)=0"
Selection.FormatConditions(1).Interior.ColorIndex = 35
Next ZELLE
End Sub
Dummerweise schreibt dieses Makro in die bedingte Formatierung jeder Zelle:
"=CELL(""protect"";Zelle)=0"
Ich möchte aber das Wort Zelle durch die wirkliche Zellbezeichnung ersetzt haben ;c)
Also in Zelle A1 soll "=CELL(""protect"";A1)=0" stehen, in Zelle A2 soll "=CELL(""protect"";A2)=0" usw.
wer kann mir da weiterhelfen und mein Makro entsprechend verbessern?
Vielen Dank
Chris