Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Diagramm dynamisch erstellen

Gruppe

Diagramm

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