Office: Diagramm Werte über Variable definieren

Hallo zusammen,

ich konnte schon häufig viele Lösungsvorschläge hier aus dem Forum in mein Makro ein- oder es gar umbauen. Aber nun bin ich mit meinem VBA-Latein am Ende.

ich habe eine (Gesamt)Tabelle, die aus verschiedenen Tabellen generiert wird und somit immer unterschiedlich lang ist. In dieser Gesamttabelle möchte ich nun an verschiedenen Stellen Zwischenergebnisse einzelner Bereiche ausrechnen lassen. Soweit klappt auch alles.

Nun möchte ich diese Zwischenergebnisse in ein Diagramm einfließen lassen.

Diagramm erstellen funktioniert auch.

wenn ich nun den ersten Datensatz mit (fixen) Werten fütter, dann sieht der Befehl folgendermaßen aus:

With ActiveChart
'.Chart definieren usw.
.SeriesCollection(1).Values = Worksheets("Test").Range("G11,I11,K11,M11,O11,Q11,S11,U11,W11,Y11,AA11,AC11")
End With

Klappt!

Da jedoch nicht bei jedem Durchlauf die Zwischenergebnisse in Zeile11 stehen, würde ich hier gerne mit einer Variablen arbeiten. Die Spalten bleiben immer die Selben mit einer Spalte frei dazwischen. Nun habe ich schon diese Möglichkeiten ausprobiert und es funktioniert nichts.

.SeriesCollection(1).Values = Worksheets("Test").Union(Range("G" & grau1), Range("I" & grau1), Range("K" & grau1), Range("M" & grau1), Range("O" & grau1), Range("Q" & grau1), Range("S" & grau1), Range("U" & grau1), Range("W" & grau1), Range("Y" & grau1), Range("AA" & grau1), Range("AC" & grau1))

.SeriesCollection(1).Values = Worksheets("Test").Union(Cells(grau1, 7), Cells(grau1, 9), Cells(grau1, 11), Cells(grau1, 13), Cells(grau1, 15), Cells(grau1, 17), Cells(grau1, 19), Cells(grau1, 21), Cells(grau1, 23), Cells(grau1, 25), Cells(grau1, 27), Cells(grau1, 29))

Was mach ich falsch? bzw kann ich Diagramme überhaupt so "füttern"? Würde gerne eine Möglichkeit kennen, bei der ich unterschiedliche Diagrammwerte quasi "einzeln und spezifisch" zuordnen kann.

Hoffe das war einigermaßen verständlich erläutert

Danke für eure Hilfe
VG Fabian

:)

 

Hi Fabian,

auf jeden Fall fehlt vor jedem Range bzw. vor Cells der Tabellenblattbezug. Außerdem ist Worksheets("Test"). vor Union zu viel. Also nach diesem Prinzip:

Code:

 

Hallo Beverly,

Danke für deine schnelle und funktionierende Antwort.

wie man wohl gesehen hat, ist mir die UNION funktion noch nicht so geläufig.

aber mit meinen Variablen und Namen anstelle deiner funktioniert es bestens!

habe nach etwas probieren doch noch eine Variante gefunden ohne UNION:

.SeriesCollection(1).Values = Worksheets("Test").Range("G" & grau1 & ",I" & grau1 & ",K" & grau1 & ",M" & grau1 & ",O" & grau1 & ",Q" & grau1 & ",S" & grau1 & ",U" & grau1 & ",W" & grau1 & ",Y" & grau1 & ",AA" & grau1 & ",AC" & grau1)

die "," und "&" waren ziemlich fies zu kombinieren, aber der effekt scheint der selbe zu sein wie bei deiner Variante.

Danke nochmal!!!