Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagrammdaten aus Variablen

Diagrammdaten aus Variablen
03.09.2015 14:14:11
Fabian
Hallihallo,
ich habe schon alle möglichen Varianten probiert, aber ich komme leider nicht zum gewünschten Ergebnis.
Mein Vorhaben: Ich möchte per VBA ein Balkendiagramm erstellen. Die dazugehörigen Daten sollen aus vorher von mir belegten Variablen stammen. Es gibt in meinem Fall zunächst nur zwei Variablen, in jeder ist eine Zeitdauer gespeichert (Typ: Date). Hier ein Minimalbeispiel:
Sub Diagramm()
Dim A as Date, B as Date
A = "12:34:56"
B = "10:10:10" 'Die Werte sind egal, sie werden auch eigentlich vorher ermittelt
With ActiveSheet.Shapes.AddChart.Chart
.Charttype = xlBarClustered
With .SeriesCollection.NewSeries
.SetSourceData Source := Range("A" & "B") 'Hier hapert es. Hab verschiedenes probiert
End with
End with
End Sub

Vielleicht könnt ihr mir da weiterhelfen :)
Liebe Grüße
Fabian

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Diagrammdaten aus Variablen
03.09.2015 14:36:42
Rudi
Hallo,
so?
Sub Diagramm()
Dim A As Date, B As Date
A = "12:34:56"
B = "10:10:10" 'Die Werte sind egal, sie werden auch eigentlich vorher ermittelt
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlBarClustered
With .SeriesCollection.NewSeries
.Values = Array(2, 4)
.XValues = Array(A, B)
End With
End With
End Sub
Gruß
Rudi

Anzeige
AW: Diagrammdaten aus Variablen
03.09.2015 14:50:12
Beverly
Hi Fabian,
.SetSourceData wird für das Gesamtegiagramm verwendet, nicht für eine einzelne Datenreihe und da du außerdem keinen Zellbereich hast, kannst du nicht Source:=Range(.....) verwenden
Sub Diagramm()
Dim A As Date, B As Date
A = TimeValue("12:34:56")
B = TimeValue("10:10:10") 'Die Werte sind egal, sie werden auch eigentlich vorher ermittelt
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlBarClustered
With .SeriesCollection.NewSeries
.Values = CDbl(A)
End With
With .SeriesCollection.NewSeries
.Values = CDbl(B)
End With
.Axes(xlValue).TickLabels.NumberFormat = "[$-F400]h:mm:ss"
End With
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige