Hallo,
bin mir nicht sicher, ob das in Excel geht, aber ich denke mal schon 
Folgendes… ich habe eine Tabelle mit drei Spalten nach dem Muster:
Farbe|x-Wert|y-Wert
1|x1|y1
2|x2|y2
2|x3|y3
…
Nun stelle ich x und y mit dem Diagramm-Assistent in einem Punkt-Diagramm dar. Und nun die Frage
Kann ich irgendwie sagen, dass der Punkt für den y-Wert in einer bestimmten Farbe abhängig der Spalte „Farbe“ ausgegeben werden soll? Beispiel:
Wenn Farbe=1 dann y1(grün)
Wenn Farbe=2 dann y1(rot)
In der Hoffnung, dass ich das verständlich ausgedrückt habe
Vielen Dank, Robert
unterschiedlich farbige Diagrammpunkte per VBA
bin mir nicht sicher, ob das in Excel geht, aber ich denke mal
schon Folgendes… ich habe eine Tabelle mit drei Spalten
Farbe|x-Wert|y-Wert
1|x1|y1
2|x2|y2
2|x3|y3
Nun stelle ich x und y mit dem Diagramm-Assistent in einem
Punkt-Diagramm dar. Und nun die Frage
Kann ich irgendwie sagen, dass der Punkt für den y-Wert in
einer bestimmten Farbe abhängig der Spalte „Farbe“ ausgegeben
werden soll? Beispiel:
Hi Robert,
zeichne dir über extras—Makro… ein Makro auf in dem du beliebigen Zellen Zellenfarben zuweist, dann hast du in den Makros die zahlenwerte der Farben. In dem Beispiel habe ich 6 (gelb) und 41 (blau) genommen, das musste dir noch anpassen.
Weiterhin musst du auch die Variable „letzte“ umändern, da ich nur ne kleine testabelle in A1:C4 hatte.
Gruß
Reinhard
Sub Robert()
Dim letzte As Long, n As Long
letzte = 4 '= letzte beschriebene zeile
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveChart.SeriesCollection(1)
For n = 2 To letzte ' zeile 1 Überschrift deshalb ab 2
With .Points(n - 1)
Select Case Worksheets("Tabelle1").Range("A" & n)
Case 1
.MarkerBackgroundColorIndex = 6 'gelb
.MarkerForegroundColorIndex = 6
Case 2
.MarkerBackgroundColorIndex = 41 'blau
.MarkerForegroundColorIndex = 41
Case Else
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
End Select
.MarkerStyle = xlTriangle
.MarkerSize = 5
.Shadow = False
End With
Next n
End With
Range("A1").Select
End Sub
Hallo Reinhard,
zeichne dir über extras—Makro… ein Makro auf in dem du
beliebigen Zellen Zellenfarben zuweist […]
Vielen Dank für Deine Hilfe. Hat wunderbar funktioniert
Gruß aus Berlin, Robert