Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Diagramm (Farbanpassung je nach Wert)

Forumthread: Diagramm (Farbanpassung je nach Wert)

Diagramm (Farbanpassung je nach Wert)
20.02.2004 07:38:03
Mucky
Hallo Leute,
hab da ein Problem, weiß aber nicht ob das überhaupt machbar ist:
Ich möchte ein Balkendiagramm machen mit 10Balken (Werten). Die Werte können einen Bereich von 0-100 mit zwei Kommastellen haben. Nun möchte ich definierten Wertbereichen gewisse Farben im Diagramm zuweisen. Ändert sich der Wert in einen anderen Bereich soll sich auch die Farbe im Diagramm automatisch mit ändern.
So das ist mein Problem, vieleicht hat ja einer eine Idee wie man(n) das umsetzen könnte.
Danke schon mal.
Gruß Mucky
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm (Farbanpassung je nach Wert)
20.02.2004 07:49:27
simon
Hallo,
hatte einmal eine ähnliche Situation, hab einfach mit einer IF then anweisung das Problem gelöst, ist eigeentlich total einfach. die Makros "Kleiner" und "größer" habe ich mit dem Recorder aufgenommen. müsste bei dir genauso funktionieren
mfg Simon

Private Sub Chart_Calculate()
Dim Zahl As Variant
Application.ScreenUpdating = False
Zahl = Sheets("Berechnung").Cells(9, 2)
Call größer
'wenn mehr als 50 kwp eingegeben werden wird die Scala im Diagram geändert
If Zahl < 50 Then
Call kleiner
End If
End Sub

Sub größer()
Sheets("diagramm2").Select
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnit = 30000
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

Sub kleiner()
Sheets("diagramm2").Select
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnit = 10000
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige