Anzeige
Archiv - Navigation
1444to1448
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
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

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige