Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige