Diagramm per VBA erweitern

Forumthread: Diagramm per VBA erweitern

03.08.2016 10:21:00

tom

Hallo Community,
ich möchte ein Makro im Blatt Bestand erstellen, um mein
Diagramm im Chart Auswertung um eine Spalte zu erweitern. (Diese Spalte ist im Blatt Bestand).
Folgendes habe ich schon, aber es funktioniert nicht....

Sub Schaltfläche457_Klicken()
LastS = Worksheets("Bestand").Cells(12, 256).End(xlToLeft).Column
Sheets("Auswertung").Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range(Cells(11, 15), Cells(11, LastS))
ActiveChart.SeriesCollection(1).Values = Range(Cells(231, 15), Cells(231, LastS))
ActiveChart.SeriesCollection(2).Values = Range(Cells(232, 15), Cells(232, LastS))
ActiveChart.SeriesCollection(3).Values = Range(Cells(233, 15), Cells(233, LastS))
ActiveChart.SeriesCollection(4).Values = Range(Cells(234, 15), Cells(234, LastS))
End Sub

Muss nicht vor das Range noch ein Verweis, dass die Daten aus dem Bestand kommen?
Hoffe mir kann jemand helfen.
VG Tom

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Diagramm per VBA erweitern

03.08.2016 13:34:45

Piet
AW: Diagramm per VBA erweitern

09.08.2016 08:47:34

Beverly

AW: Diagramm per VBA erweitern

03.08.2016 13:34:45

Piet

Hallo Tom
Probier es mal so, ohne Garantie das es klappt ....
mfg Piet

Sheets("Auswertung").Select
With Worksheets("Bestand")
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = .Range(Cells(11, 15), Cells(11, LastS))
ActiveChart.SeriesCollection(1).Values = .Range(Cells(231, 15), Cells(231, LastS))
ActiveChart.SeriesCollection(2).Values = .Range(Cells(232, 15), Cells(232, LastS))
ActiveChart.SeriesCollection(3).Values = .Range(Cells(233, 15), Cells(233, LastS))
ActiveChart.SeriesCollection(4).Values = .Range(Cells(234, 15), Cells(234, LastS))
End With

AW: Diagramm per VBA erweitern

09.08.2016 08:47:34

Beverly

Hi Tom,
es handelt sich um ein eingebettetes Diagrammobject?

Sub Schaltfläche457_Klicken()
Dim chrDia As Chart
Set chrDia = Worksheets("Auswertung").ChartObjects(1).Chart
With Worksheets("Bestand")
LastS = .Cells(12, 256).End(xlToLeft).Column
chrDia.SeriesCollection(1).XValues = .Range(.Cells(11, 15), .Cells(11, LastS))
chrDia.SeriesCollection(1).Values = .Range(.Cells(231, 15), .Cells(231, LastS))
chrDia.SeriesCollection(2).Values = .Range(.Cells(232, 15), .Cells(232, LastS))
chrDia.SeriesCollection(3).Values = .Range(.Cells(233, 15), .Cells(233, LastS))
chrDia.SeriesCollection(4).Values = .Range(.Cells(234, 15), .Cells(234, LastS))
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Diagramm per VBA erweitern

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread