Ich habe ein kleines Problem und es wäre super, wenn mir jemand helfen könnte.
Ich habe in Excel ein Diagramm verknüpft mit einer Tabelle in der die Daten für das Diagramm stehen. Wie kann ich die Verknüpfung aufhaben?
VG
Tobi
Sub VerknuepfungLoeschen()
Dim arrXWerte
Dim arrYWerte
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
arrXWerte = Range(Split(.Formula, ",")(2))
arrYWerte = Range(Split(.Formula, ",")(1))
.XValues = arrXWerte
.Values = arrYWerte
End With
End Sub
Du musst allerdings beachten, dass dies nur für Diagrammtypen mit X-/Y-Werten gilt. Bei anderen Diagrammtypen musst du das entsprechend anpassen.