wer kann mir bei folgendem Problem helfen:
In der Spalte O stehen Werte oder Formeln. Wenn in der Zelle eine Formel ist, dann soll er die Zelle
grau einfärben.
DANKE
Stefan
Sub MarkiereZellenMitFormeln()
Dim rngC As Range
For Each rngC In Worksheets(1).UsedRange
If Left(rngC.Formula, 1) = "=" Then rngC.Interior.ColorIndex = 15
Next
End Sub
Wenn sich der ZellenInhalt von Formel in Festwert ändernt kann, dann ist die IF-Anweisung um einen ELSE-Ast zu erweitern.Function HatFormel(Bezug As Range) As Boolean
HatFormel = Bezug.HasFormula
End Function
Jetzt kannst du in der BedingtFormatierung bspw der Zelle O1 unter Formel ist =HatFormel(O1) eintragen.