Hallo,
Ich möchte aus einem Zellbereich ein Diagramm erstellen, das nur die Zeilen des Bereiches darstellt in denen auch Werte vorhanden sind. Ich habe versucht den Zellbereich im Makro dynamisch anzugeben, jedoch funktioniert die Sache nicht.
Wenn das Diagramm über einen CommandButton erstellt wird, ist es möglich das Diagramm nur zu aktualiseren, damit es nicht immer neu erstellt wird wenn daten hinzukommen?
Vielen Dank für die Hilfe
Martin
nachstehend der makro-code:
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Vorlage").Range("AZ34", "BP" & Sheets("Vorlage").Range("AZ65").End(xlUp).Column), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(1).Values = "=Vorlage!R34C55:R34C68"
ActiveChart.SeriesCollection(1).Name = "=Vorlage!R34C52"
ActiveChart.SeriesCollection(2).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(2).Values = "=Vorlage!R35C55:R35C68"
ActiveChart.SeriesCollection(2).Name = "=Vorlage!R35C52"
ActiveChart.SeriesCollection(3).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(3).Values = "=Vorlage!R36C55:R36C68"
ActiveChart.SeriesCollection(3).Name = "=Vorlage!R36C52"
ActiveChart.SeriesCollection(4).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(4).Values = "=Vorlage!R37C55:R37C68"
ActiveChart.SeriesCollection(4).Name = "=Vorlage!R37C52"
ActiveChart.SeriesCollection(5).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(5).Values = "=Vorlage!R38C55:R38C68"
ActiveChart.SeriesCollection(5).Name = "=Vorlage!R38C52"
ActiveChart.SeriesCollection(6).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(6).Values = "=Vorlage!R39C55:R39C68"
ActiveChart.SeriesCollection(6).Name = "=Vorlage!R39C52"
ActiveChart.SeriesCollection(7).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(7).Values = "=Vorlage!R40C55:R40C68"
ActiveChart.SeriesCollection(7).Name = "=Vorlage!R40C52"
ActiveChart.SeriesCollection(8).XValues = "=Vorlage!R33C55:R33C68"
ActiveChart.SeriesCollection(8).Values = "=Vorlage!R41C55:R41C68"
ActiveChart.SeriesCollection(8).Name = "=Vorlage!R41C52"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Vorlage"
ActiveChart.HasDataTable = False
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP