der folgende Code funktioniert im Prinzip schon, aber leider fehlen mir noch ein paar Zeilen, damit ich auch noch die Breite der mittleren Balken sowie den Abstand zwischen den Balken (GAP) einstellen kann.
' Serienname, Kategoriename und Werte für den HIGHlevel-Grenzwert
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimSeriesNames, 0, "B1"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 0, "A2:A9"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 0, "B2:B9"
' Serienname, Kategoriename und Werte für den MESS-Wert
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimSeriesNames, 0, "C1"
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, 0, "A2:A9"
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, 0, "C2:C9"
ChartSpace1.Charts(0).SeriesCollection(1).Interior.Color = "yellow"
ChartSpace1.Charts(0).SeriesCollection (1) ?
' Serienname, Kategoriename und Werte für den LOWlevel-Grenzwert
ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimSeriesNames, 0, "D1"
ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimCategories, 0, "A2:A9"
ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimValues, 0, "D2:D9"
Vielleicht hat ja jemand eine Idee,
vielen Dank für die Tipps schon mal im voraus !
Gruß Dirk