VBA: Diagramm kopieren, Paste-Fehler

Hallo liebe Forum-Mitglieder und Excel-Götter*innen,
ich möchte mit VBA ein Diagramm kopieren und so oft in Zeilen darunter einfügen, bis Anzahl kleiner Diagramme = Anzahl Versuche (Makro: "CopyDiagram3"). Das große Übersichts-Diagramm soll auf Sheet1 bleiben, deshalb geht die Schleife von Anzahl_Diagramme+1 To Anzahl_Charts. Anhand der Zählvariable wird der Datenbereich des Diagramms angepasst.
Zwei einfachere/grundlegendere Makros habe ich dabei gelassen:
- "CopyDiagram" kopiert einmalig ein Diagramm und die Zeile darunter
- "CopyDiagram2" kopiert mittels Schleife von i = 2 To 3 ein Diagramm in die darunter liegenden Zeilen.
Alle Makros haben einmal prima funktioniert. Wenn ich allerdings Versuche hinzufüge und "CopyDiagram3" erneut ausführe, gibt es Paste-Methoden-Fehler oder "Anwendungs- oder objektorientierter Fehler".
Selbst, wenn ich Diagramme, die von den beiden simplen Makros eingefügt wurden, lösche und das Makro erneut ausführe, erscheinen dabei Paste-Fehler.
Werden Charts Nummer zugewiesen, die ich falsch annehme?
Wo liegt mein Fehler bzw. welche Bedingungen muss ich hinzufügen, damit "CopyDiagram3" funktioniert?
xlsm: https://www.herber.de/bbs/user/143822.xlsm
Vielen Dank im Voraus für eure Zeit und Hilfe.
Viele Grüße
Max

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CopyDiagram3() Dim i As Long With ThisWorkbook.Worksheets("Sheet1") q = .Cells(5, 14).Value .ChartObjects(2).Copy For i = 1 To q .Paste With .ChartObjects(.ChartObjects.Count) .Top = Range("C" & 8 + i).Top .Left = Range("C" & 8 + i).Left With .Chart.SeriesCollection(3) .Name = "=Sheet1!$B$" & 8 + i .XValues = "=Sheet1!$F$5:$I$5" .Values = "=Sheet1!$F$" & 8 + i & ":$I$" & 8 + i .Border.ColorIndex = 10 .Format.Line.Weight = 1 End With End With Next End With End Sub

Hi Max,
das kann ich in deiner hochgeladenen Mappe nicht nachvollziehen - der Code läuft problemlos durch und erstellt in Spalte C 5 neue Diagramme.
Wenn immer neue Diagramm hinzukommen würde ich aber anstelle der Variablen für die Anzahl an Diagrammen stattdessen die Zeile verwenden, in der sich das letzte Diagramm in Spalte C befindet:

Sub CopyDiagram3()
Dim i As Long
Dim chrDia As ChartObject
Dim lngZeile As Long
With ThisWorkbook.Worksheets("Sheet1")
For Each chrDia In .ChartObjects
If chrDia.TopLeftCell.Column = 3 Then
If chrDia.TopLeftCell.Row > lngZeile Then lngZeile = chrDia.TopLeftCell.Row
End If
Next chrDia
lngZeile = lngZeile + 1
q = .Cells(5, 14).Value
.ChartObjects(2).Copy
For i = 1 To q
.Paste
With .ChartObjects(.ChartObjects.Count)
.Top = Range("C" & lngZeile).Top
.Left = Range("C" & lngZeile).Left
With .Chart.SeriesCollection(3)
.Name = "=Sheet1!$B$" & lngZeile
.XValues = "=Sheet1!$F$5:$I$5"
.Values = "=Sheet1!$F$" & lngZeile & ":$I$" & lngZeile
.Border.ColorIndex = 10
.Format.Line.Weight = 1
End With
End With
lngZeile = lngZeile + 1
Next
End With
End Sub

Beliebteste Forumthreads (12 Monate)

VBA: Diagramm kopieren, Paste-Fehler

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread