ich habe einer Diagrammkurve eine Linienfarbe zugewiesen, die ich vorher mit
'farbe = Cells(z , 1).Interior.ColorIndex'
abfrage und mit
'Charts("Diagramm1").SeriesCollection(i).Border.ColorIndex = farbe'
zuzuweise.
Für die Erstellung einer Legende auf einem separaten Tabellenblatt lese ich die Kurvenfarbe wieder aus mit
'farbe=Charts("Diagramm1").SeriesCollection(i).Border.ColorIndex'
und weise diesen der Zelle auf dem separaten Tabellenblattwieder zu.
'Worksheets("Legende").Cells(z1 + 2, 1).Interior.ColorIndex = farbe'
Mein Problem:
Bei einer der Kurven bekommen ich bei der zugewiesenen Farbe (38) den Farbwert 57! zurück. !
Hat jemand eine Ahnung, wie das kommt ?
Vielen Dank für Eure Hilfe
Gruß Heiko