DataLabels - Bezug zu Tabelle per VBA herstellen
01.08.2013 18:46:24
Rudiator
nachdem wir neuerdings auf Excel 2010 umgestellt haben, bekomme ich ab und an ein paar Problemchen beim "Verstehen" - insbesondere was Grafikelemente betrifft.
Im Speziellen passiert mir aktuell Folgendes:
Aufgabe:
Datenbeschriftungen einer Datenreihe in einem gestapelten Säulendiagramm per Formel auf Zellen im Tabellenblatt zuweisen.
Sofern ich versuche den aufgezeichneten Code per VBA auszuführen, erhalte ich immer die Fehlermeldung "Lzf 1004: Anwendungs- oder objektdefinierter Fehler". Auch mit dem original aufgezeichneten Code. VBA steigt immer beim Versuch des Zuweisens der Formel aus (Fett markierte Zeile).
Schicker wäre natürlich noch darüber hinaus eine Zuweisung ohne die einzelnen Elemente auswählen oder aktivieren zu müssen (z.B. with datenreihe().datenpunkt().DataLabel ...) - sofern machbar.
Gibt es da anscheinend doch Einschränkungen? Eigentlich ist .Formula doch zugelassen
Sub datenreihen_beschriftung()
Application.ScreenUpdating = False
Dim btAktPkt As Byte
For btAktPkt = 1 To ActiveSheet.Cells(2, 1).Value '(soll variabel gehalten werden)
'so kommt es aus dem Rekorder:
ActiveSheet.ChartObjects("grafik").Activate
ActiveChart.SeriesCollection(9).DataLabels.Select
ActiveChart.SeriesCollection(9).Points(btAktPkt).DataLabel.Select
Selection.Formula = "=leer!R40C36"
Next btAktPkt
ActiveSheet.Cells(19, 13).Select
Application.ScreenUpdating = True
End Sub