Supportnet / Forum / Tabellenkalkulation
VBA: Diagramm mit getrennten dynamischen Datenquellen
Frage
Hallo!!
Ich würde gerne ein Diagramm aus zwei getrennten, sich dynamisch verändernden Bereichen (zwei Spalten) erstellen. Ich habe das heir mit einem benannten Bereich "Durchschnitt" versucht - führt allerdings zu einer Fehlermeldung...
[code]Dim r1 As Range, r2 As Range, Durchschnittsbereich As Range
Worksheets("Produktivitätsentw. D " & D).Activate
Set r1 = Range(Sheets("Produktivitätsentw. D " & D).Cells(20, 2 + n - m), Sheets("Produktivitätsentw. D " & D).Cells(20 + Perioden, 2 + n - m))
Set r2 = Range(Sheets("Produktivitätsentw. D " & D).Cells(20, 3 + n), Sheets("Produktivitätsentw. D " & D).Cells(20 + Perioden, 3 + n))
Set Durchschnittsbereich = Union(r1, r2)
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Produktivitätsentw. D " & D).Range("Durchschnittsbereich"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Produktivitätsentw. D " & D
ActiveSheet.Shapes("Diagramm 3").IncrementLeft 705
ActiveSheet.Shapes("Diagramm 3").IncrementTop -104.5[/code]
Vielen Dank vorab
Antwort 1 von Beverly
Hi,
Bis später,
Karin
Dim chDiagramm As ChartObject
Dim r1 As Range, r2 As Range, Durchschnittsbereich As Range
With Worksheets("Produktivitätsentw. D " & D)
Set r1 = .Range(.Cells(20, 2 + n - m), .Cells(20 + Perioden, 2 + n - m))
Set r2 = .Range(.Cells(20, 3 + n), .Cells(20 + Perioden, 3 + n))
Set Durchschnittsbereich = Union(r1, r2)
Set chDiagramm = .ChartObjects.Add(100, 50, 300, 200)
With chDiagramm.Chart
.ChartType = xlLine
.SetSourceData Source:=Durchschnittsbereich, PlotBy:=xlColumns
.Parent.Name = "Produktivitätsentw. D " & D
End With
End With
Bis später,
Karin