Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Diagramm mit 2 Arrays

Diagramm mit 2 Arrays
03.12.2019 11:57:00
Tim
Halllihallo,
auch bei mir besteht ein kleines Problem, dass ich nicht richtig lösen kann. Ich will ein Diagramm in VBA schreiben und den Daten für die x- bzw. y-Achse bestimmte Werte zuweisen. Leider zeigt er mir meine Werte nicht an bzw. skaliert auf der y-Achse die Werte schon komplett falsch. Kann mir jemand vllt helfen?
Sub Diagrammblatt()
' Alte Diagramme löschen
Dim Chart As Object
For Each Chart In Sheets("Tabelle2").ChartObjects
Chart.Delete
Next
Dim DA1, DA2, DA3, DE, DA As Range
Dim KA1, KA2, KA3, KE, KA As Range
Dim xArr As Variant
Dim yArr As Variant
DA1 = Date
DA2 = DateAdd("d", 3, Date)
DA3 = DateAdd("d", 8, Date)
DE = DateAdd("m", 12, Date)
KA1 = 0.6
KA2 = 0.3
KA3 = 0.1
KE = 0
xArr = Array(DA1, DA2, DA3, DE)
yArr = Array(KA1, KA2, KA3, KE)
' Auswahl der Tabelle und des Diagrammtypes
With Worksheets("Tabelle2")
.Shapes.AddChart2(276, xlAreaStacked).Select
.Application.CutCopyMode = False
End With
With ActiveChart
' Festlegung der Daten für das Diagramm
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "=""Test"""
.SeriesCollection(1).Values = xArr
.SeriesCollection(1).XValues = yArr
End With
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm mit 2 Arrays
03.12.2019 12:23:24
Rudi
Hallo,
so?
Sub Diagrammblatt()
' Alte Diagramme l?schen
Dim objChart As Object
For Each objChart In Sheets("Tabelle2").ChartObjects
objChart.Delete
Next
Dim DA1, DA2, DA3, DE, DA As Range
Dim KA1, KA2, KA3, KE, KA As Range
Dim xArr As Variant
Dim yArr As Variant
DA1 = Date
DA2 = DateAdd("d", 3, Date)
DA3 = DateAdd("d", 8, Date)
DE = DateAdd("m", 12, Date)
KA1 = 0.6
KA2 = 0.3
KA3 = 0.1
KE = 0
xArr = Array(DA1, DA2, DA3, DE)
yArr = Array(KA1, KA2, KA3, KE)
' Auswahl der Tabelle und des Diagrammtypes
With Worksheets("Tabelle2")
.Shapes.AddChart(276, xlAreaStacked).Select
.Application.CutCopyMode = False
End With
With ActiveChart
' Festlegung der Daten f?r das Diagramm
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "=""Test"""
.SeriesCollection(1).Values = yArr
.SeriesCollection(1).XValues = xArr
End With
End Sub

Gruß
Rudi
Anzeige
AW: Diagramm mit 2 Arrays
03.12.2019 12:55:04
Tim
Ich Blindei,
Danke!
Alle Diagramme löschen...
03.12.2019 15:51:41
Beverly
@All,
...geht einfacher:
If Sheets("Tabelle2").ChartObjects.Count > 0 Then Sheets("Tabelle2").ChartObjects.Delete


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige