Supportnet Computer
Planet of Tech

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,

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