Laufzeitfehler 1004
17.01.2018 16:31:07
Michel
Weiss jemand, wieso ich in diesem Code einen Laufzeitfehler erhalten?
Der Code hat eigentlich immer funktioniert. Auch nach mehrmaligen Neustart des Computer, funktioniert das Makro nicht mehr.
Sub Datenbeschriftung_1()
Dim Voreinstellung
Startzelle = "B2"
Application.ScreenUpdating = False
Spalte = Range(Startzelle).Column
Startzeile = Range(Startzelle).Row
Endezeile = Range(Startzelle).End(xlDown).Row
ws = ActiveSheet.Name
ActiveSheet.ChartObjects("Diagramm 3").Activate
For j = Startzeile To Endezeile
With ActiveChart.SeriesCollection(1).Points(j - Startzeile + 1)
.HasDataLabel = True
.DataLabel.Text = Worksheets(ws).Cells(j, Spalte).Value
End With
Next j
Range("Task").End(xlDown).Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub