Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramm ohne Bezüge kopieren

Diagramm ohne Bezüge kopieren
25.08.2022 10:56:05
Marc
Hallo zusammen
Ich versuche per VBA das Register "Diagramm" zu kopieren und als neues Register *ohne Verknüpfungen bzw. nur als Werte* einzufügen. Ist das möglich, dass ich das Diagramm nur mit den Werten kopiere?
Vielen Dank für die Hilfe
Marc
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm ohne Bezüge kopieren
25.08.2022 11:22:08
Beverly
Hi Marc,
mit Register "Diagramm" meinst du ein Tabellenblatt mit eingebettetem Diagrammobjekt oder ein eigenständiges Diagrammblatt?
Bis später
Karin

AW: Diagramm ohne Bezüge kopieren
25.08.2022 11:42:11
Marc
Liebe Karin
Vielen Dank für die Antwort. Ja genau, es handelt sich hier um ein Register mit dem Namen Diagramm und einem eigenständiges Diagrammblatt. Also im Register hat es keine Zellen mehr, sondern alles ist grau und nur das Diagramm sichtbar.
Vielen Dank für die Hilfe
Marc
Anzeige
AW: Diagramm ohne Bezüge kopieren
25.08.2022 12:04:25
Beverly
Hi Marc,
das kannst du nach diesem Prinzip lösen:

Sub DiagrammBereichUmwandelnDiagrammblatt()
Dim lngReihe As Long          ' Schleifenvariable für Datenreihen
Dim arrWerte()                ' Variable für Datenreihenwerte
'  Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'  Diagrammblatt kopieren
Charts("Diagramm").Copy After:=Sheets(Sheets.Count)
With Charts(Charts.Count)
'     Bezug zu Zellbereichen in Werte umwandeln
For lngReihe = 1 To .SeriesCollection.Count
' Y-Werte
arrWerte() = Range(Split(.SeriesCollection(lngReihe).Formula, ",")(2))
.SeriesCollection(lngReihe).Values = arrWerte()
' X-Werte
arrWerte() = Range(Split(.SeriesCollection(lngReihe).Formula, ",")(1))
.SeriesCollection(lngReihe).XValues = arrWerte()
Next lngReihe
End With
'   Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub
Bis später
Karin

Anzeige
AW: Diagramm ohne Bezüge kopieren
26.08.2022 11:27:34
Marc
Vielen Dank, funktioniert bestens.
Besten Gruss
Marc
AW: Diagramm ohne Bezüge kopieren
25.08.2022 11:38:59
Rudi
Hallo,
sowas?

Sub aaa()
Dim strAKT As String
strAKT = ActiveWorkbook.FullName
Sheets("Diagramm").Copy
ActiveWorkbook.BreakLink Name:=strAKT, _
Type:=xlExcelLinks
End Sub
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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