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
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
Sub aaa()
Dim strAKT As String
strAKT = ActiveWorkbook.FullName
Sheets("Diagramm").Copy
ActiveWorkbook.BreakLink Name:=strAKT, _
Type:=xlExcelLinks
End Sub
Gruß