VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Diagramm dynamisch erstellen

Gruppe

Grafik

Bereich

Diagramm

Thema

Diagramm dynamisch erstellen

Problem

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.




StandardModule: Modul1

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

    


Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm