Dynamisches Diagramm
18.11.2020 16:41:02
Gerald
ich habe im Archiv folgendes zum Thema "Dynamisches Diagramm" gefunden:
"Auf Schaltflächendruck soll das bestehende Diagramm - falls vorhanden - gelöscht und ein neues erstellt werden. Die Anzahl der Spalten und Zeilen soll dynamisch sein."
Lösung: Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
Sub CreateAndDelete()
Dim cht As Chart
On Error Resume Next
ActiveSheet.ChartObjects(1).Delete
On Error GoTo 0
Set cht = Charts.Add
cht.ChartType = xlColumnClustered
cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1").CurrentRegion
cht.Location Where:=xlLocationAsObject, Name:="Tabelle1"
Range("A1").Select
End Sub
Die Beispielmappe gibt es hier:
https://www.herber.de/mailing/Diagramm_dynamisch_erstellen.htm
Das funktioniert auch soweit Super.
Vorraussetzung: Die Tabelle und das Diagramm ist auf einem Blatt, und es befindet sich nur ein Diagramm dort.
Aber was mache ich wenn ich auf einem Tabellenblatt 2 oder mehr Diagramme habe?
Wie kann ich in dem Code mein "Diagramm3" unterbringen, so das er nur dieses löscht und wieder erzeugt dynamisch?
Und was muss ich ergänzen, um die Tabelle auf Sheet(1) zu belassen und das Diagramm auf Sheet(2).
Wäre Super wenn mir jemand helfen könnte.