VBA 2. Datenreihe in Diagramm darstellen
14.02.2018 16:03:34
Dennis
ich habe ein kleines Problem. Ich habe mit VBA einen Code (siehe unten) programmiert, in dem ein Diagramm automatisch "erneuert" wird, wenn in der Datenreihe neue Werte hinzukommen (jede Woche Daten von Montag bis Samstag)
In der "Call delete" wird das alte gelöscht und danach mit "Call formatieren" richtig dargestellt.
Sub Diagramm()
Dim x As Long
Call delete
With Sheets("Produktivität")
x = .Cells(.Rows.Count, 8).End(xlUp).Row
Sheets("Perf. Board").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Name = "Chart 1"
ActiveSheet.ChartObjects("Chart 1").Select
ActiveChart.SetSourceData Source:=Range("Produktivität!$H$4:H" & x)
End With
Call Formatieren
End Sub
Jetzt möchte ich eine zweite Datenreihe einfügen. Leider erkennt er sie nicht. Ich hoffe ihr könnt mir weiterhelfen.
Sub Diagramm()
Dim x, y As Long
Call delete
With Sheets("Produktivität")
x = .Cells(.Rows.Count, 8).End(xlUp).Row
y = .Cells(.Rows.Count, 20).End(xlUp).Row
Sheets("Perf. Board").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Name = "Chart 1"
ActiveSheet.ChartObjects("Chart 1").Select
ActiveChart.SetSourceData Source:=Range("Produktivität!$H$4:H" & x)
ActiveChart.SetSourceData Source:=Range("Produktivität!$T$4:T" & y)
End With
Call Formatieren
End Sub