Diagrammbereich zu groß ausgewählt
31.01.2019 08:34:11
Luisa
Ich möchte gerne per VBA den Datenbereich eines Diagramms aktualisieren, da immer wieder neue Zeilen zu den Daten dazu kommen.
Der Datenbereich wird auch aktualisiert, allerdings ist die x-Achse dann zu lang. Das heißt, meine Balken sind in den Ersten paar Zentimetern total zusammen gequetscht und dann kommt 20 cm nichts mehr.
Ich weiß auch woran das liegt, finde aber keine passende Lösung. Ich liste zuvor relativ viele Werte auf und entferne dann die Duplikate. Und als Datenbereich sollen eigentlich nur die Zeilen genommen werden, wo auch was drin steht. Allerdings nimmt Excel als letzte Zeile die Zeile, in der die letzten Werte standen, bevor die Duplikate entfernt wurden.
Ich habe schon probiert, vor der Aktualisierung des Datenbereichs die Tabelle unterhalb meiner Daten per .ClearContents nochmal wirklich zu leeren, aber kein Erfolg.
Den Diagrammbereich mittels Variablen auswählen bekomme ich nicht hin, da die Spalten nicht _
zusammen hängen (Spalte B, E und F). Das ist (ein Ausschnitt) aus meinem Code:
'Tabelle leeren
Tabelle5.range("A3:EE1048576").ClearContents
letzteZeileArchiv = Tabelle3.Cells(1048576, 1).End(xlUp).Row
'Alle Planungsrunden auflisten
Tabelle3.range("A4:C" & letzteZeileArchiv).Copy Tabelle5.range("A3")
letzteZeileQuartal = Tabelle5.Cells(1048576, 1).End(xlUp).Row
Tabelle5.range("A3:C" & letzteZeileQuartal).RemoveDuplicates (1)
letzteZeileQuartal = Tabelle5.Cells(1048576, 1).End(xlUp).Row
'Datenbereich aktualisieren
Tabelle4.ChartObjects("Diagramm 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Quartale").range("B:B, E:F")