Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler 1004

Laufzeitfehler 1004
17.01.2018 16:31:07
Michel
Hallo zusammen,
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


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004
17.01.2018 16:50:52
Michel
Hoy Chris,
Habs rausgefunden, dass problem war, dass ich eine Zeile ausgeblendet habe. =)
Danke trozdem.
Gruss
Michel
AW: Laufzeitfehler 1004
17.01.2018 17:05:09
ChrisL
Hi Michel
Den Code noch etwas überarbeitet:
Sub Datenbeschriftung_1()
Dim WS As Worksheet: Set WS = Worksheets("Matrix")
Dim i As Long, lZ As Long
Application.ScreenUpdating = False
lZ = WS.Cells(Rows.Count, 1).End(xlUp).Row
WS.ChartObjects("Diagramm 3").Activate
For i = 2 To lZ
With ActiveChart.SeriesCollection(1).Points(i - 1)
.HasDataLabel = True
.DataLabel.Text = WS.Cells(i, 2).Value
End With
Next i
WS.Cells(lZ + 1, 1).Select
End Sub

cu
Chris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige