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

Diagramm bedingt formatieren

Diagramm bedingt formatieren
15.09.2003 11:05:33
Christian
An alle Cracks diese Welt,

ich muss mich ( beruflich bedingt ) nun auch mit VBA befassen und bin echt erstaunt, was man alles damit anstellen kann. Nach einem internen Treinig weiss ich nun auc über die Grundlagen bescheit, aber momentan sitze ich da an einem Problem... Hoff mir kann einer etwas weiter helfen. Schon mal VIELN DANK für die Mühe!!

Problem ist folgendes.
Ich möchte die Farbe meines Tortendiagramms einem Wert (am besten Text, aber Zahl geht auch )in der Tabelle anpassen. Ich teste schon die ganze Zeit mit einer If Schleife, aber das will nicht... :-(
Code:
If Range("C2") = 1 Then
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = 2
End If

If Range("C2") = 2 Then
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = 3
End If

If Range("C2") = 3 Then
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = 4
Else
ActiveChart.

...und das ganze dann für C3, C4, C5 etc.( bzw Point 2, 3 etc.)

Schon mal vielen Dank!!

Gruss aus der Schweiz, Christian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm bedingt formatieren
15.09.2003 12:44:56
Bernhard Ringhofer
eine Möglichkeit wäre:


Sub Makro2()
Set sf = Sheets("Tabelle6"): Set sfd = sf.ChartObjects("Diagramm 1")
f_dp1 = sf.[c2]: f_dp2 = sf.[c3]: f_dp3 = sf.[c4]: f_dp4 = sf.[c5]
sfd.Activate
With ActiveChart.SeriesCollection(1)
.Points(1).Interior.ColorIndex = f_dp1 + 30 '30=gew.Wert für Farbindex'
.Points(2).Interior.ColorIndex = f_dp2 + 30
.Points(3).Interior.ColorIndex = f_dp3 + 30
.Points(4).Interior.ColorIndex = f_dp4 + 30
End With
End Sub


AW: Diagramm bedingt formatieren
15.09.2003 15:22:56
Christian
Hey,

klasse, nach ein paar Anpassungen läuft es. Gut Idee! BESTEN DANK!!!

Gruss

Christian
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige