Hallo liebe Excelgemeinde,
Derzeitig sitze ich vor dem Problem, dass ich von allen Worksheets das erste Diagramm kopieren möchte. Dies tue ich (bzw tue ich nicht) mit dem folgenden Code:
Dim ws As Worksheet
Dim i As Integer
For Each ws In ActiveWorkbook.Worksheets
If WorksheetSkip(ws.Name) = False And Not ws.ChartObjects.Count = 0 Then
i = i + 1
ws.ChartObjects(1).Copy
Worksheets("Übersicht").Paste
'Hier wird das Chartobject verschoben und die größe angepasst
End If
Next ws
Dabei erhalte ich bi ws.ChartObjects.Copy immer den 1004 (Anwendungs- oder objektorientierter Fehler) Fehler. Das Diagramm ist definitiv vorhanden. Hat jemand eine Idee wie ich den 1004er Fehler nicht mehr bekomme?
Gruß
Lisa