Hallo Liebes Forum,
Ich habe ein Problem welches mich bald auf die Palme bringt:
Ich möchte von einer Tabelle in eine andere 3 Diagramme kopieren. Diese sollen jeweils an einer anderen Stelle landen (untereinander).
Mein Quellcode:
Dim Ziel As Range
Dim Diag As ChartObject
Set Diag = Sheets(TAB_Vorlagen).ChartObjects("Diag_A")
Diag.Copy
With Sheets(TAB_Protokoll)
Set Ziel = .Range(.Cells(Einfuegezeile, 1), .Cells(Einfuegezeile, 1))
.Paste
With .ChartObjects(.ChartObjects.Count)
.Top = Ziel.Top
.Left = Ziel.Left
End With
End With
Einfuegezeile = Einfuegezeile + Laenge_Diagramm
Set Diag = Sheets(TAB_Vorlagen).ChartObjects("Diag_B")
Diag.Copy
With Sheets(TAB_Protokoll)
Set Ziel = .Range(.Cells(Einfuegezeile, 1), .Cells(Einfuegezeile, 1))
.Paste
With .ChartObjects(.ChartObjects.Count)
.Top = Ziel.Top
.Left = Ziel.Left
End With
End With
Einfuegezeile = Einfuegezeile + Laenge_Diagramm
Set Diag = Sheets(TAB_Vorlagen).ChartObjects("Diag_C")
Diag.Copy
With Sheets(TAB_Protokoll)
Set Ziel = .Range(.Cells(Einfuegezeile, 1), .Cells(Einfuegezeile, 1))
.Paste
With .ChartObjects(.ChartObjects.Count)
.Top = Ziel.Top
.Left = Ziel.Left
End With
End With
Im Prinzip 3-mal der identische Code bis auf den Namen des Diagramms und der Zeile zum einfügen.
Das 1. Diagramm wird ohne zu murren an die richtige Stelle kopiert. Beim 2.kommt der Laufzeitfehler'1004': "Die Paste-Methode des Worksheets-Objekts konnte nicht ausgeführt werden". Klicke ich auf Debuggen und lasse den Code weiter ausführen wird das erste Diagramm an die Stelle vom zweiten kopiert. Das dritte Diagramm wird daraufhin wieder ohne Fehler richtig kopiert. (Es gibt alle drei Diagramme und der Name ist richtig geschrieben)
Ich hoffe es kann mir jemand weiterhelfen.
Gruß Matt