Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Diagramm kopieren, Paste-Fehler

Forumthread: VBA: Diagramm kopieren, Paste-Fehler

VBA: Diagramm kopieren, Paste-Fehler
11.02.2021 13:56:24
Max
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Diagramm kopieren
11.02.2021 14:19:42
Beverly
Hi Max,
wenn ich dein Anliegen richtig interpretiere, dann müsste es so funktionieren:
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

Anzeige
AW: VBA: Diagramm kopieren
11.02.2021 14:37:25
Max
Hallo Beverly,
wieder mal dankeschön für deine schnelle Antwort.
Leider führt mich auch dein Code zur Zeile, in der ".Paste" steht, mit dem Fehler:
"Laufzeitfehler '1004': Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden."
Die Variable, die die Anzahl an Charts im Sheet zählt, brauche ich, damit nur die Diagramme genau dieser neu hinzugekommenen Versuchen erstellt werden. Beginnt die Schleife bei eins, dauert der Kopiervorgang inkl. Datenbereichsanpassung mit mehr Versuchen immer länger und über z.B. dem Diagramm der dritten Messung liegen irgendwann 20 Kopien drüber, womit die Dateigröße immer weiter steigt.
Oder wo liegt mein Denk- bzw. VBA-Fehler?
Viele Grüße
Max
Anzeige
AW: VBA: Diagramm kopieren
11.02.2021 14:47:46
Max
(da mein Problem noch nicht gelöst ist, aktiviere ich hiermit nochmal das Kontrollkästchen)
AW: VBA: Diagramm kopieren
11.02.2021 15:53:28
Firmus
Hallo Max,
chartsObjects.count steht auf "1". Du willst aber Nr. "2" kopieren.
Nr. "2" existiert aber nicht, ergo Fehler 1004.
Wie gefunden?
Debug einiger Zähler, Ersetzen von ".ChartObjects(2).Copy" durch ".ChartObjects(1).Copy".
Schon läuft das Macro durch (aber mit falschem Copy...).
Wie reproduzieren?
1. Das kleine Chart in Zelle C8 löschen. (Damit fehlt chart(2) im Object.)
2. Einen deiner 3 Kopierbuttons drücken. JEDER bringt den Fehler 1004.
Warum chart in c8 fehlt? Keine Ahnung, musst du wissen.
Gruß,
Firmus
Buttonsdann
Anzeige
AW: VBA: Diagramm kopieren
11.02.2021 17:32:18
Beverly
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

Anzeige
Copy-Paste funktioniert nur mit Einzelschritt
11.02.2021 15:39:53
Max
Mir ist aufgefallen, dass meine Makros super funktionieren, wenn ich sie in Einzelschritten ausführe.
Ich muss also VBA dazu bringen, dass Copy und Paste sauber nacheinander ausgeführt werden, wenn ich das gesamte Makro mit einmal starte.
;

Forumthreads zu verwandten Themen

ribbons ausschalten, copy and paste verhindern
manfred

Mit
enable control 21, false 'cut
enable control 19, false 'copy
enable control 22, false 'pste
enabel control 755, flase 'paste special
konnte ich bislang cut, copy und paste in der Menueleiste abschalten
mit
commandbars ("ToolBar List").enabled = false
das...
23.08.2010 10:57:26
Thread-ID: 1173683
2 Beiträge
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
copy and paste
ptonka

Hallo zusammen,
ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind....
15.04.2011 16:44:11
Thread-ID: 1210638
8 Beiträge
Copy / Paste in neue Mappe Fehler 438
Markus

Hallo zusammen,
ich habe ein Makro geschrieben, dass nach diversen Filtervorgängen in einer Arbeitsmappe, den gewünschten Bereich kopiert. Nun soll dies in einer anderen bereits offnen Arbeitsmappe auf einem bestimmten Arbeitsblatt eingefügt werden, doch leider bekomm ich immer den Laufzeit...
16.07.2013 13:14:29
Thread-ID: 1322736
4 Beiträge
zeilen: Copy and Paste mit Dialog
Andi

Hallo,
vielleicht kann mir jemand bitte bei folgendem Problem helfen ... Tipps geben:
Ich möchte in einem Berichtsblatt vier zeilen kopieren und der User soll via Dialog entscheiden, wo diese hinkopiert werden sollen.
Das Blatt hat viele aufeinanderfolgende Bereichtszeilen (immer 4...
01.11.2013 12:33:26
Thread-ID: 1336794
9 Beiträge
Anzeige
VBA blockiert copy and paste
MRInterNETT

Hallo Zusammen,
ich habe eine Datei mit mehreren Tabellenblättern. Da ich im Startblatt keine Scrollbalken wollte, habe ich in "dieseArbeitsmappe" Displayscrollbar auf false gesetzt und in jedem einzelnen Tabellenblatt wieder auf true. Wenn vbacode für die einzelnen Tabellenblätter eingegeb...
09.09.2014 21:16:12
Thread-ID: 1380754
2 Beiträge
Copy-Paste wirft Fehlermeldung aus
Sebastian

Hallo in die Runde
Ich möchte aus einem Tabellenblatt Daten eines Bereichs (zwei Spalten) auswählen und in ein anderes Tabellenblatt kopieren.
Dazu wird in der Tabelle "ÜL" zunächst geprüft, wie viele Einträge vorhanden sind und anschließend der Bereich mit Einträgen von oben links (als...
22.10.2014 23:13:53
Thread-ID: 1388069
5 Beiträge
Array as Range Select copy and paste
Jonas

Hallo zusammen,
ich habe ein VBA Problem und hoffe mir kann hier jemand helfen.
In dem Code werden mehrere Zellen in einen einen Array vom Typ Range eingelesen.
Anschließen soll Array(x) augewählt, kopiert und an einer anderen Stelle wieder eingefügt werden.
Ich hätte gerne nur...
04.01.2016 16:58:10
Thread-ID: 1467019
5 Beiträge
Array as Range Select copy and paste
Jonas

Hallo zusammen,
ich habe ein VBA Problem und hoffe mir kann hier jemand helfen.
In dem Code werden mehrere Zellen in einen einen Array vom Typ Range eingelesen.
Anschließen soll Array(x) augewählt, kopiert und an einer anderen Stelle wieder eingefügt werden.
Ich hätte gerne nur...
04.01.2016 16:58:45
Thread-ID: 1467020
2 Beiträge
VBA: Copy-Paste mit Fehlermeldung
Luisa
Liebe Community,
ich bin gerade dabei per Copy-Paste Daten in verschiedenen Tabellenblätter zu übertragen. Dabei erhalte ich leider die Fehlermeldung: Anwendungs- oder objektdefinierter Fehler! :(
Der Code sieht wie folgt aus:
Option Explicit Sub Kopieren() Dim letzteZeile As String She...
10.02.2016 14:57:57
Thread-ID: 1474546
7 Beiträge
Copy and Paste
Stefan

Hallo Forumer,
da aus meinen Shapes nix geworden ist hier eine neue Frage, ich habe eine Tabelle (Alle) mit einer Liste mit Leuten und deren Angaben. Von (E4:AH100). In der Spalte (O4:O100) wird das Austrittsdatum eingetragen als Jahreszahl (z.B. 2016). Ich möchte nun das immer wenn irgendw...
07.03.2016 21:17:18
Thread-ID: 1480517
8 Beiträge
Anzeige
Copy and Paste
Zdravko
Hy,
Ich habe eine Tabelle als html mit dropdown Menü, wie kann ich die Tabelle aus dem Webbrowser in excel
Kopieren ohne dropdown sondern mit den ausgewählten Werten im dropdown Menü?
MfG
Zdravi
27.04.2016 22:05:29
Thread-ID: 1490735
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA: Diagramm kopieren und Paste-Fehler beheben

Schritt-für-Schritt-Anleitung

  1. Makro erstellen: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Modul einfügen: Klicke im Projekt-Explorer mit der rechten Maustaste auf dein Projekt und wähle Einfügen > Modul.

  3. Code einfügen: Kopiere den folgenden Code in das Modul:

    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

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.

Häufige Fehler und Lösungen

  • Laufzeitfehler '1004': Dieser Fehler tritt häufig auf, wenn das Diagramm, das du kopieren möchtest, nicht existiert. Stelle sicher, dass du die richtige Diagrammnummer angibst. Verwende .ChartObjects(1).Copy statt .ChartObjects(2).Copy, wenn nur ein Diagramm vorhanden ist.

  • Copy-Paste-Fehler: Wenn das Makro nicht wie erwartet funktioniert, kann es hilfreich sein, die Paste-Anweisung in eine DoEvents Anweisung einzufügen, um sicherzustellen, dass Excel genug Zeit hat, um die Operation auszuführen:

    .Paste
DoEvents

Alternative Methoden

  • Diagramm als Bild speichern: Eine andere Methode, um Diagramme zu kopieren, besteht darin, das Diagramm als Bild zu speichern und dann einzufügen. Hierzu kannst du Export-Methoden verwenden:

    .ChartObjects(2).Chart.Export "C:\Path\to\your\chart.png", "PNG"

  • Manuelles Kopieren: Du kannst das Diagramm auch manuell kopieren (Strg+C) und dann an der gewünschten Stelle einfügen (Strg+V), um Fehler zu vermeiden.

Praktische Beispiele

  • Beispiel 1: Kopiere ein Diagramm aus "Sheet1" in "Sheet2":

    Sub CopyToAnotherSheet()
    ThisWorkbook.Worksheets("Sheet1").ChartObjects(1).Copy
    ThisWorkbook.Worksheets("Sheet2").Paste
End Sub

  • Beispiel 2: Erstelle mehrere Kopien eines Diagramms mit unterschiedlichen Datenbereichen:

    For i = 1 To 5
    .ChartObjects(1).Copy
    .Paste
    .ChartObjects(.ChartObjects.Count).Top = 100 * i
Next i

Tipps für Profis

  • Verwendung von Variablen: Um den Code flexibler zu gestalten, verwende Variablen für die Diagrammnummer und den Bereich, an den du das Diagramm einfügen möchtest.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um potenzielle Probleme elegant abzufangen:

    On Error GoTo ErrorHandler
' Dein Code hier
Exit Sub
ErrorHandler:
    MsgBox "Ein Fehler ist aufgetreten: " & Err.Description

FAQ: Häufige Fragen

1. Warum erhalte ich einen Paste-Fehler?
Der Paste-Fehler tritt häufig auf, wenn das Diagramm, das du kopieren möchtest, nicht mehr existiert oder die Zielzelle ungültig ist. Überprüfe die Diagrammnummer und die Zellenposition.

2. Wie kann ich die Anzahl der Diagramme dynamisch anpassen?
Du kannst die letzte Zeile mit Diagrammen ermitteln, indem du eine Schleife verwendest, die alle Diagramme durchläuft und deren Positionen überprüft. So wird sichergestellt, dass du immer die korrekten Diagramme kopierst und einfügst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige