ist es möglich, mehrere Diagramme mit der With-anweisung von einem workbook in eine anderes zu kopieren ?!
Sub TabellenKopieren()
ChDir CurDir
Dim Quelle As Workbook
Set Quelle = ThisWorkbook.Worksheets("Tabelle1")
Dim Ziel As Workbook
Ziel = Workbooks.Add
With Quelle
.ActiveSheet.ChartObjects("Diagramm 28").ChartArea.copy Destination:=Ziel.Range("C6")
'usw
End With
End Sub
Die Frage ist, wie die synthax für die einzelnen Diagramme ausschaut..denn so macht er mir das leider nit.
Hoffe ihr könnt mir da weiterhelfen und schonmal danke im voraus !
Joe