Office: Gleiches Diagramm auf vielen Arbeitsblättern einfügen

Hallo liebe Community,

ich stehe gerade auf dem Schlauch. Ich habe eine Exceldatei mit 20 Arbeitsblättern für verschiedene Produkte. Ich hab nun ein einfaches Diagramm erstellt, dass ich auf allen Arbeitsblättern einfügen möchte und das natürlich die Daten der jeweiligen Produkts zusammenfasst.

Copy/Pasten scheint nicht zu funktionieren. Die Verweise des Diagramms sind absolut. Habe versucht die Dollarzeichen und Arbeitsblattreferenzen aus der Datenreihe zu entfernen, bekomme da aber nur Fehlermeldungen.

Gibt es hier einen Trick, wie ich mir sehr viel Zeit sparen kann? Das manuelle ändern der Verweise dauert ewig.

Vielen Dank für eure Hilfe,
nexxterHeHe

 

Hallo!

Wie wäre es mit dem umgekehrten Weg?
Du kopierst das gesamte Blatt, in welchem das Diagramm ist, und fügst dann die Daten per Copy/Paste ein.
Ansonsten müsste man sich etwas mit dynamischen Bereichsnamen überlegen, aber ich weiß nicht, ob das wirklich praktikabler ist...

 

Hi schatzi, danke für die schnelle Antwort.

Dafür ist das Projekt leider schon zu weit fortgeschritten. Arbeite da schon seit längerem dran und es gibt endlos viele Querverweise zu anderen Arbeitsblättern.

Dein Tutorial für Dynamische Bereiche habe ich gelesen, bin mir aber nicht sicher, wie mir das helfen könnte. Muss ich nicht auch bei einem Dynamischen Bereich immer das Arbeitsblatt fest definieren?

Ich habe versucht ein Macro aufzunehmen (eine Sache, von der ich sehr wenig Ahnung habe). Habe es auch fast geschafft den entsprechenden Graph zu erzeugen (nur die Größenänderung werden nicht übernommen?)
Aber auch hier besteht das Problem, dass das Arbeitsblatt definiert werden muss.
Wenn ich alle Arbeitsblattnamen "Game3!" lösche, bekomme ich sofort Fehlermeldungen.

Code:

Sub Makro4()
'
' Makro4 Makro
'

'
    Range("W425").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Game3!$A$9"
    ActiveChart.SeriesCollection(1).Values = "=Game3!$Q$13:$BG$13"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "=Game3!$A$24"
    ActiveChart.SeriesCollection(2).Values = "=Game3!$Q$28:$BG$28"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).Name = "=Game3!$A$39"
    ActiveChart.SeriesCollection(3).Values = "=Game3!$Q$43:$BG$43"
    ActiveChart.SeriesCollection(3).XValues = "=Game3!$Q$3:$BG$3"
    ActiveChart.PlotVisibleOnly = False
    ActiveChart.PlotArea.Select
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = "New Play User from Partnerships"
    ActiveSheet.ChartObjects("Diagramm 2").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects("Diagramm 2").Activate
    ActiveSheet.ChartObjects("Diagramm 2").Activate
End Sub

 

Hallo!

Jein...
Man kann dies Dilemma relativ aufwändig umgehen:
Diese Formel gibt den Blattnamen aus:
=TEIL(ZELLE("Dateiname");1+FINDEN("]";ZELLE("Dateiname"));99)

Das kann man natürlich auch in einen Bereichsnamen einbauen:
Name: xWerte
Bezieht sich auf: =INDIREKT(TEIL(...wie oben...)&"!A1:A99")

Wenn du nun im Diagramm deine Datenreihe markierst, dann kannst du den angegebenen Bereich in der Bearbeitungszeile durch den Namen ersetzen, z.B.
=DATENREIHE(;;Mappe1.xlsx!xWerte;1)

Nun sollte sich das Diagramm nach Copy/Paste anpassen.

 

Das klappt, ist aber wie du schon sagst, sehr umständlich.
Vielleicht hat ja übers WE noch einer eine andere Idee, bevor ich am Montag anfange 150 Bereiche zu anzulegen.

Ich verstehe die Logik von Excel nicht. Jede Formel passt sich automatisch an, außer man unterbindet es explizit. Warum ist es bei Diagrammen anders?