AW: Alle Diagramme aus mehreren Workbooks sammeln
11.03.2016 16:30:24
Beverly
Hi Alex,
sorry, habe keine Mailbenachrichtigung bekommen.
Es muss nicht zwischen den Blättern hin und her selektiert werden, denn in meinem Code wird korrekt auf die richtigen Blätter referenziert.
Die folgende Zeile
With ThisWorkbook.Worksheets("Tabelle1")
beideutet, dass sich auf die Mappe mit dem Code und darin auf Tabelle1 bezogen wird - das ist das Zieltabellenblatt.
Beim Öffnen der Mappen aus dem Ordner, ist die betreffnende Mappe jeweils die aktive - das findest du in dieser Zeile
For Each wksTab In ActiveWorkbook.Worksheets
in der mit der Schleife über alle Tabellenblätter der aktiven Mappe gelaufen wird und in der folgenden Zeile, wird sich stets auf das laufende Tabellenblatt der aktiven Mappe bezogen
With wksTab
Somit ist alles korrekt.
Ich nehme aber an, dass deine Diagramme nicht "TS" im Namen beinhalten, weshalb keine kopiert werden - deshalb solltest du den Code aus meinem vorhergehenden beitrag mal ausführen: und zwar in der Arbeitsmappe, in die kopiert werden soll.
Wenn du also mit "Name" eventuell nicht den Diagrammnamen sondern den Diagrammtitel meinst, dann musst du den Code wie folgt ändern:
For Each wksTab In ActiveWorkbook.Worksheets
With wksTab
If .ChartObjects.Count > 0 Then
For Each chrDia In .ChartObjects
If chrDia.Chart.HasTitle Then
If InStr(chrDia.Name, "TS") > 0 Then
chrDia.Copy
ThisWorkbook.Worksheets("Tabelle1").Paste
End If
End If
Next chrDia
End If
End With
Next wksTab