es sollte eigentlich doch nur ein kleiner Code am Abend werden und nun bin ich leider mittelprächtig entnervt, die Augen schmerzen und ich komm nicht drauf In PivotTabellen verwende ich für Abweichungsdarstellungen zuweilen Datenbalken. Diese skalieren sich innerhalb eines DataFields automatisch. Wenn ich jedoch über mehrere Datenfelder hinweg eine einheitliche Skalierung haben möchte, so muß ich entweder jede bedingte Formatierung manuelle anpassen oder eine Prozedur übernimmt das für die selektierten Zellen. Theoretisch so weit so gut. Ich habe mir diese Prozedur nun geschrieben. In einer InputBox gibt man Unter und Obergrenze für die Skalierung an und dann sollten diese Werte an jede bedingte Formatierung innerhalb der Selektion übergeben werden. Sollten passiert nichts. Diese Befehlskomponente scheint der Knackpunkt zu sein newvalue:=dblMinValue.
Ich habe im Internet und im Forum gesucht, aber es gibt kein Hinweis darauf, warum der newvalue nicht korrekt übertragen wird!!!
Kann jemand aus dem Forum, der heute vielleicht geistig noch etwas frischer ist, sich die Sache ansehen? Ich bin für jeden Hinweis dankbar!
https://www.herber.de/bbs/user/87319.xlsm
Vielen Dann für Eure Aufmerksamkeit und Grüße aus Berlin, Andreas Hanisch