Diagrammdatenbereich per VBA bestimmen
02.08.2013 15:07:46
kultnoob
bin auf der suche nach einer Möglichkeit, den Diagrammdatenbereich automatisch nach einer Zuordnung zu bestimmen.
Im Beispiel:
- Auswertung wird erstellt
- per Userform werden Daten ausgewählt und in Zelle D22 (Bezeichnung) und E22 (Menge) ausgegeben
Nun bin ich auf der Suche nach einer Möglichkeit, damit mein "explodierter 3D-Kreis" (so heißt das Diagramm) den Diagrammdatenbereich selbst bestimmt auf Basis der vorhandenen Werte. Diese wachsen mit der Zeit. Damit man nicht vergißt, den Bereich anzupassen, wäre es nice, dies über ein Makro zu machen.
Von fcs fand ich diesen Code:
Sub DiagrammSourceData()
lrow2 = Sheets(2).UsedRange.Rows.Count
'wenn nur ein Daigrammobjekt im Tabellenblatt eingebettet ist
ActiveSheet.ChartObjects(1).Chart.SetSourceData _
Source:=Range("D22 & E" & lrow2)
'wenn bestimmtes Diagrammobjekt angepasst werden soll
ActiveSheet.ChartObjects("Diagramm 1").Chart.SetSourceData _
Source:=Range("D22 & E" & lrow2)
End Sub
mhhh... Leider funktioniert das nicht so wie ich will. Zum Einem habe ich den oberen Bereich des Codes versucht und zum anderen den unteren Bereich. Die Werte stehen in D22 (Bezeichnung) & E22 (Werte).
Wie im Code zu erkennen ist, versuchte ich dies über UsedRange.Rows.Count zu händeln. Leider sind in Spalte A mehr Zeilen beschriftet wie es Werte ab Zelle D22/E22 gibt. Somit nimmt er als Range mehr Werte als ich eigentlich will.
Ist es möglich, UsedRange.Rows.Count nur auf einen Bereich zu beziehen? Sprich, die letzte beschrieben Zelle in Spalte D und E?
Ebenso ergibt das mit dem oben genannten Code leider kein Diagramm sondern nichts...