Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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