brauche wieder mal Eure Hilfe. In einem Tabellenblatt einer Arbeitsmappe werden in Abhängigkeit von div. Daten Diagramme gebildet. Um die Datenbeschriftungen auch automatisiert auszurichten, habe ich unter Zuhilfenahme des Makrorekorders folgendes Makro gebastelt:
Sub Beschriftung()
Worksheets("Hilfe").ChartObjects("Diagramm 1").Activate
If Worksheets("Hilfe").Cells(9, 10) = "Top" Then
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetElement (msoElementDataLabelTop)
ActiveChart.SeriesCollection(2).Select
ActiveChart.SetElement (msoElementDataLabelBottom)
Else
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetElement (msoElementDataLabelBottum)
ActiveChart.SeriesCollection(2).Select
ActiveChart.SetElement (msoElementDataLabelTop)
End If
End Sub
Die Zuweisung der 2. Datenreihe klappt aber nicht. Habe das ganze dann auch mit den zugewiesenen Bezeichnungen der Datenreihen probiert - ebenfalls Fehlanzeige...Kann jemand von Euch helfen und mir einen Schubs geben?
Danke
Ron