VBA - Datenbeschriftung hinzufügen
11.03.2020 10:36:51
Meseeks
ich habe aktuell ein Problem mit einem Code, der sonst eigentlich reibungslos funktioniert hat. Ich muss auch dazu sagen, dass ich den Code nach langer Recherche aus'm Internet übernommen habe und minimal angepasst - ich bin noch ein totaler VBA noob. Deswegen kann ich mit der Fehlermeldung leider auch nicht allzuviel anfangen.
Die Fehlermeldung, die kommt, wenn ich den Makro ausführen möchte lautet "Die Methode 'Position' für das Objekt 'DataLabel' ist fehlgeschlagen". Und das wäre der Code (die betroffene Zeile ist fett markiert):
Sub AddDataLabels()
Dim seSales As Series
Dim pts As Points
Dim pt As Point
Dim rngLabels As Range
Dim iPointIndex As Integer
Set rngLabels = Range("E$28:E$55")
Set seSales = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
seSales.HasDataLabels = True
Set pts = seSales.Points
For Each pt In pts
iPointIndex = iPointIndex + 1
pt.DataLabel.Text = rngLabels.Cells(iPointIndex).Text
pt.DataLabel.Font.Bold = True
pt.DataLabel.Position = xlLabelPositionAbove = 0
Next pt
End Sub
Kann mir irgendjemand helfen, sagen und erklären warum da der Fehler jetzt "plötzlich" ist und was falsch ist? Hintergrund des Codes ist, dass ich eine ältere Version von Excel 2010 habe und in einem Diagramm die Datenbeschriftung aus einer anderen Spalte haben wollte (in dem Fall alles ab E28).
Ich freue mich sehr über jede Hilfestellung! Besten Dank & Grüße
Anzeige