Dynamisches Diagramm will einfach nicht.

Hallo zusammen,
ich sitze schon den ganzen Tag an dem Problem mein Auswahlbereich für ein Diagramm dynamisch zu gestalten. Ich habe dieses Forum sowie andere schon zig mal durchsucht, aber nichts konnte ich auf mein Problem anwenden. Es geht um folgendes:
Ich habe einen dynamischen Pivot Chart der sich mit MS Access selbstständig befüllt. Nun habe ich eine Hilfstabelle auf einem anderen Blatt erstellt, welche mit der Pivot Tabelle verknüpft ist. Mit dieser Tabelle sollen mehrere Diagramme erstellt werden. Da ich mehrere Filter in dem Pivot Chart habe, verändern sich die Anzahl der Spalten und Zeilen beider Tabellen synchron.
Mein Problem ist jetzt, dass der Datenbereich des Diagramms nicht dauerhaft mitwächst und schrumpft (je nach Filter).
Ich habe jetzt schon einen Namen names "Dia" definiert, der die aktuellen Zeilen erkennt, bekomme diesen jedoch nicht als Datenbereich in dem Diagramm definiert.
Für den Namen habe ich folgende Formel benutzt: =BEREICH.VERSCHIEBEN(Hilfsblatt!$B$1;;;MAX(Hilfsblatt!$A:$A);ANZAHL2(Hilfsblatt!$1:$1)-1)
Wenn ich jetzt im Diagrammdatenbereich
=22627.xlsm!Dia
eingebe aktualisiert sich das Diagramm auch wieder richtig, jedoch steht danach =Hilfsblatt!$B$1:$C$30
drin, also wieder ein statischer Wert.
Kann mir bitte jemand helfen?
Für jegliche Hilfe wäre ich äußerst dankbar!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jochen,
...ist im Diagramm auch ein fixer Datenbereich eingetragen und keiner der sich dynamisch an die Anzahl an Daten anpasst - das siehst du wenn du dir die Einträge der Bereiche für die Datenreihe und die X-Werte anschaust. Wie ich schon geschrieben habe, lässt sich kein Zellbereich aus mehreren Spalten direkt als Datenbereich ins Diagramm einfügen. Damit so etwas funktioniert muss man für jede Datenreihe und die X-Werte einen eigenen Namen definieren und diesen dann im Diagramm verwenden.
Aber da liegt - wie ich mir schon gedacht hatte - das Problem bei deiner Mappe im Gegensatz zu dem anderen Beispiel mit 2 fixen Spalten. Wenn du dort 2 Namen definierst und ins Diagramm einträgst, ändert sich auch der Datenbereich dynamisch. Bei dir jedoch ändert sich nicht nur die Anzahl an Daten für jede Datenreihe sondern auch die Anzahl an Spalten und damit auch die Anzahl an Datenreihen im Diagramm. Du kannst zwar für jede Datenreihe einen Namen definieren und ins Diagramm eintragen und der Bereich erweitert/verkürzt sich in Abhängigkeit von der Datenanzahl, aber in der Legende werden auch die Legendensymbole der Datenreihen angezeigt, für welche keine Daten vorhanden sind. Außerdem werden die Linien-Datenreihen im Diagramm als Linien angezeigt, die auf der Horizontalachse liegen, also quasi 0-Werte enthalten. Wenn dich das nicht stört, dann gut, aber wenn es stört, kommst du um VBA nicht herum: du müsstest nämlich in der Hilfstabelle die Spalten ohne Werte ausblenden - dann wird das betreffende Legendensymbol auch nicht angezeigt.
Im angehängten Beispiel siehst du die definierten Namen und wie sie ins Diagramm integriert sind, damit sich das Diagramm in Abhängigkeit von der Anzahl an WErten ändert.
https://www.herber.de/bbs/user/127280.zip

Option Explicit Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Dim lngZaehler As Long With Worksheets("Hilfsblatt").ChartObjects(1).Chart For lngZaehler = 1 To .FullSeriesCollection.Count .FullSeriesCollection(lngZaehler).IsFiltered = Application.Sum(. _ FullSeriesCollection(lngZaehler).Values) = 0 Next lngZaehler End With End Sub

Beliebteste Forumthreads (12 Monate)

Dynamisches Diagramm will einfach nicht.

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread