mit Hilfe des Forums konnte ich schon die Idee der bedingten Formatierung in einer Pivottabelle mit Hilfe einer Inputbox realisieren. Diese Bedingte Formatierung wird über VBA nach dem Prinzip Zellwert ist gleich für jedes Feld im Pivot Datenbereich erstellt. Tatkräftig unterstütz hat dabei Franz (fcs)!
Was mir in den letzten Tagen jedoch aufgefallen ist:
Da die bedingte Formatierung als Verweis auf eine Zelle angelegt wird, greift sie auch, wenn der Zellwert 0 oder LEER ist. Das ist an sich auch korrekt. Optimal wäre es jedoch, wenn die Bedingte Formatierung nicht fix nur auf den Zellwert referenziert, sondern über eine Formel auch noch prüft, ob der Referenzwert ungleich 0 und ungleich LEER ist. Als Trockenübung habe ich das schon realisieren können.
In diesem Fall wird die Zelle F4 dreifach bedingt formatiert: "=UND($G$330;$G$33"""";F4>$G$33)". $G$33 ist wieder die Zelle, die den Referenzwert enthält.
Und hier der erste Versuch, das in eine Form zu überführen, die vom Makro als Formatbedingung verstanden wird:
.FormatConditions.Add Type:=xlExpression, Formula1:= "=UND("&bedformaddress1&""0;""&bedformaddress1&""""";"&pvField&">"&bedformaddress1&")"
Ich hatte auch schon mit AND probiert, aber die Formel muß ja für eine deutsche Excel Applikation lesbar sein. Ich vermute also UND ist schon korrekt. Auch in eine Zelle habe ich es schon eingegeben, um meine Schreibweise mit den Operatorenzeichen zu überprüfen. Aber ich bekomme es leider nicht hin, daß diese Formel über das Makro korrekt in die bedingte Formatierung geschrieben wird. Im VBA Editor blieben alle meine Versuche rot eingefärbt.
Ist es überhaupt möglich, eine solche diffizile bedingte Formatierung über VBA zu realisieren.
https://www.herber.de/bbs/user/52793.xls
Ich würde mich sehr über Eure Ideen und Anregungen freuen, die zur Lösung beitragen.
Viele Grüße,
Andreas Hanisch