Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Säulen-Formatierung

Forumthread: Säulen-Formatierung

Säulen-Formatierung
14.12.2004 16:13:29
Matthes
Hallo,
habe ein kleines Problem mit einem Excel-Chart. Ich würde gerne die Säulen bei positivem Wert in grün darstellen, bei negativem Wert aber rot. Ich habe es lediglich geschafft, dass Excel bei negativem Wert eine andere Farbe nimmt (durch invertierten wenn negativ).
Wie erhalte ich die gewünschte Farbkombi?
Danke,
Matthes
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Säulen-Formatierung
paula
Hi Matthes
nimm diese Makros als Beispiel und ändere die Bezüge
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b2:b19")) Is Nothing Then
If Target.Count = 1 Then Call Format_Diagramm
End If
End Sub


Private Sub Format_Diagramm()
Dim Dia As Chart, sc As Series, p As Byte, pc As Byte
Set Dia = Sheets("Tabelle1").ChartObjects("Diagramm 1").Chart
Set sc = Dia.SeriesCollection(1)
pc = sc.Points.Count
For p = 1 To pc
sc.Points(p).Interior.ColorIndex = 3
If Sheets("Tabelle1").Cells(p + 1, 2) > 0 Then
sc.Points(p).Interior.ColorIndex = 4
End If
Next
End Sub

Noch Fragen?
Gruß Paula
Anzeige
Nicht gebacken ...
14.12.2004 16:39:32
Matthes
... sorry, bin offenbar zu blöd dafür! Habe die Datei hochgeladen, kannst du nochmal helfen? Danke ...
Gruß,
Matthes
AW: Nicht gebacken ...
paula
Hi Matthes
hier eine kleine Beispieldatei
https://www.herber.de/bbs/user/14828.xls
noch Fragen, dann aber fix FEIERABEND
Gruß paula
Anzeige
;

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