Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige