Office: (Office 2010) Relative Pfade in Diagrammen beim Kopieren

Hallo zusammen,

wir haben folgendes Problem:

Wir haben Rohdaten auf mehreren Tabellenblättern in einer Exceldatei und dazu dann jeweils ein Diagramm als Auswertung in der gleichen Exceldatei.

Eine zweite Datei mit anderen Rohdaten hat genau dieselbe Struktur sprich die Blätter heißen immer gleich und die Werte sind immer in den gleichen Zellen. Wenn ich nun das Diagramm aus der einen Excel-Datei in die andere kopiere, werden die Pfade zu den Datenreihenwerte in dem Diagramm absolut.

Wie bekomme ich da relative Pfade hin? Bei Tabellen kann man ja mit Suchen und Ersetzen den absoluten Pfad wieder rauslöschen, bei Diagrammen zur Festlegung der Datenbereiche geht das natürlich nicht mehr.

Hat jemand eine Idee, oder muss ich wirklich jedes Mal die absoluten Pfade per Hand rauslöschen?

:)

 

wenns nicht zig datenblätter sind, dann kopier einfach die daten in die file mit den charts und speicherts neu ab....

 

Hi,

versuche folgendes: nach dem du die Diagramme kopiert hast, führe diesen Code in der neuen Arbeitsmappe aus
Code:

Dabei musst du allerdings D:\Test\[Mappe2.xlsx] an deine Bedingungen anpassen.

 

Vielen Dank erstmal, leider passiert bisher noch gar nichts, wenn ich das Script ausführe.

Ich habe es erst mal an meine Bedingungen angepasst, vorausgesetzt ich habe verstanden, wie das ganze funktionieren soll.

Sieht jetzt so aus:

Sub BereichAnpassen()
Dim wksTab As Worksheet
Dim chrDia As ChartObject
Dim intReihe As Integer
For Each wksTab In ThisWorkbook.Worksheets
With wksTab
If .ChartObjects.Count > 0 Then
For Each chrDia In .ChartObjects
With chrDia.Chart
For intReihe = 1 To .SeriesCollection.Count
.SeriesCollection(intReihe).Formula = Application.Substitute(.SeriesCollection(intReihe).Formula, "[Vorlage.xlsx]", "")
Next intReihe
End With
Next chrDia
End If
End With
Next wksTab
End Sub

Zur Erläuterung: Die Dateien liegen alle im gleichen Ordner. Aus der Datei Vorlage kopiere ich die Diagramme in die jeweilige Datei. Es muss daher im Wertebereich für jede Datenreihe eines Diagrammes immer [Vorlage.xlsx] gelöscht werden. Dieses muss auch noch für den Wertebereich der x-Achse gemacht werden.

Vielleicht kannst du ja das Script nochmal anpassen, so dass es läuft.

 

Hi,

also mein Code läuft unter meinen Bedingungen korrekt. Ist die Ursprungsmappe geschlossen? Dann fehlt - so wie in meinem Code richtig angegeben - die Pfadangabe.

Der Code muss natürlich in der Arbeitsmappe, in die die Diagramme kopiert wurden, ausgeführt werden.

 

Hallo,

also die ursprungsmappe (Vorlage) ist geöffnet. Von daher müsste das ohne die Pfadangabe ja passen.

Problem ist vielleicht, dass die Diagramme nicht in eine Arbeitsmappe kopiert werden sondern als Blatt kopiert werden (sie heißen dann Diag1 usw.). Von daher führe ich das Makro in dem Blatt Diag1 aus und da tut sich bei mir leider nichts.

 

Hi,

aus deinem Eröffnungsbeitrag ging leider nicht hervor, dass es sich um Diagrammblätter handelt.
Code:

 

Das stimmt, sorry das hatte ich vergessen zu erwähnen.

Vielen Dank, jetzt funktioniert es wie es soll.