Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon ComoMolo vom 13.09.2019, 14:21 Options

VBA: Diagramm mit getrennten dynamischen Datenquellen

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...

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

Vielen Dank vorab

Antwort schreiben

Antwort 1 von Beverly vom 14.09.2019, 07:02 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken