Hallo,
Ich möchte via VBA eine bedingte Formatierung für eine Zelle erzeugen. Die bedingte Formatierung soll eine Formel zur Erzeugung der bedingten Formatierung heranziehen. Diese Formel greift auf einen Bereich zurück, der während der Routine berechnet wird. Ich habe den Abschnitt folgendermaßen programmiert:
If Not rngSpecial Is Nothing Then
With wks1.Cells(i + 5, 2)
.Select
.FormatConditions.Add Type:=xlExpression, Formula1:="Anzahl2(" & rngSpecial.Address & ")>0"
.FormatConditions(.FormatConditions.Count).Interior.Pattern = xlLightUp
End With
Set rngSpecial = Nothing
End If
Nun hat Excel aber bei der Übergabe der Formel das Problem, dass in der Bedingten Formatierung die Formel ="Anzahl2($B$3)>0" erzeugt wird, d.h. die Anführungszeichen tauchen ungewollt auf. Eine vorherige Übergabe an eine String-Variable hilft auch nicht. Wie bekomme ich die Anführungszeichen weg? Es soll ja nur =Anzahl2($B$3)>0 dort stehen.
Gruß
Jens