Dicke Linie Chart automatisch anpassen
25.01.2018 16:30:15
Daniel
ich brauche dringend eure Hilfe:
Ich möchte in einen Excel-Diagramm Ziellinien als Bandbreite anzeigen (wenn Ziel 80% dann soll die Linie z.B. von 75-85% den Bereich als Zielbereich markieren). Dies klappt auch mit einer transparenten, entsprechend dicken Ziellinie.
Allerdings soll die Linie immer z.B. +/- 25% als Bandbreite anzeigen. Da sich aufgrund er sich ändernden IST-Werte die Skalierung aber ändern kann muss die Dicke der Linie flexibel errechnet werden.
Dies hat mit u.a. Formel auch funktioniert (letzte Woche) nun funktioniert es leider nicht mehr.
Habt ihr Ideen warum und was ich ändern kann?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sheets("KPIs").ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(4).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O2") * Sheets("Datentabelle"). _
Range("N2") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P2") = Sheets("Datentabelle").Range("O2") * Sheets("Datentabelle") _
.Range("N2") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
ActiveChart.SeriesCollection(5).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O3") * Sheets("Datentabelle"). _
Range("N3") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P3") = Sheets("Datentabelle").Range("O3") * Sheets("Datentabelle") _
.Range("N3") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
ActiveChart.SeriesCollection(6).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O4") * Sheets("Datentabelle"). _
Range("N4") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P4") = Sheets("Datentabelle").Range("O4") * Sheets("Datentabelle") _
.Range("N4") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("KPIs").ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(4).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O10") * Sheets("Datentabelle"). _
Range("N10") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P10") = Sheets("Datentabelle").Range("O10") * Sheets(" _
Datentabelle").Range("N10") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
ActiveChart.SeriesCollection(5).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O11") * Sheets("Datentabelle"). _
Range("N11") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P11") = Sheets("Datentabelle").Range("O11") * Sheets(" _
Datentabelle").Range("N11") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
ActiveChart.SeriesCollection(6).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O12") * Sheets("Datentabelle"). _
Range("N12") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P12") = Sheets("Datentabelle").Range("O12") * Sheets(" _
Datentabelle").Range("N12") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("KPIs").ChartObjects("Diagramm 3").Activate
ActiveChart.SeriesCollection(4).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O18") * Sheets("Datentabelle"). _
Range("N18") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P18") = Sheets("Datentabelle").Range("O18") * Sheets(" _
Datentabelle").Range("N18") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
ActiveChart.SeriesCollection(5).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O19") * Sheets("Datentabelle"). _
Range("N19") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P19") = Sheets("Datentabelle").Range("O19") * Sheets(" _
Datentabelle").Range("N19") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
ActiveChart.SeriesCollection(6).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O20") * Sheets("Datentabelle"). _
Range("N20") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P20") = Sheets("Datentabelle").Range("O20") * Sheets(" _
Datentabelle").Range("N20") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("KPIs").ChartObjects("Diagramm 5").Activate
ActiveChart.SeriesCollection(4).Select
Selection.Format.Line.Weight = Sheets("Datentabelle").Range("O44") * Sheets("Datentabelle"). _
Range("N44") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("Datentabelle").Range("P44") = Sheets("Datentabelle").Range("O44") * Sheets(" _
Datentabelle").Range("N44") * 2 * 100 / ActiveChart.Axes(xlValue).MaximumScale
Sheets("KPIs").ChartObjects("Diagramm 5").Select
Sheets("KPIs").ChartObjects("Diagramm 3").Select
Sheets("KPIs").ChartObjects("Diagramm 2").Select
Sheets("KPIs").ChartObjects("Diagramm 1").Select
End Sub
VG
Daniel
Anzeige