Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dicke Linie Chart automatisch anpassen

Dicke Linie Chart automatisch anpassen
25.01.2018 16:30:15
Daniel
Hallo Profis,
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
Ganz großes Dankeschön vorab für eure Hilfe!
VG
Daniel

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dicke Linie Chart automatisch anpassen
27.01.2018 00:36:04
onur
Poste doch mal die datei.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige