aufgezeichnetes Makro dauerhaft ausführen
28.01.2016 14:14:15
Robin
ich habe mit dem Makrorecorder ein Makro aufgezeichnet, welches im Namensmanager 2 Namen, die dynamische Datenbereiche ansprechen, anlegt und anschließend in einem leeren Linien-Diagramm diese Daten auswählt, sodass eine Grafik entsteht. Anschließend habe ich die Aufzeichnung gestoppt, die Grafik wieder geleert und die Namen im Namensmanager gelöscht. Wenn ich nun das angelegte Makro wieder starten will, damit er das ganze automatisch anlegt, meldet der ein Laufzeitfehler (1004).
Der Debugger bricht nach dieser Zeile ab:
ActiveWorkbook.Worksheets("Status").Names("Date").Comment = ""
Wie muss ich denn den Code anpassen, sodass ich das Makro, bzw den Code dann immmer wieder ausführen kann?
Danke für eure Hilfe!
Der vom Macrorecorder erzeugte Code sieht folgendermaßen aus:
Sub grafdaten()
' grafdaten Makro
ActiveWorkbook.Worksheets("Status").Names.Add Name:="Date", RefersToR1C1:= _
"=INDEX(Status!C1,MAX(2,LOOKUP(9^9,Status!R1C1:R999C1,ROW(Status!R1C1:R999C1))-90)): _
INDEX(Status!C1,MAX(3,LOOKUP(9^9,Status!R1C3:R999C3,ROW(Status!R1C1:R999C1))))"
ActiveWorkbook.Worksheets("Status").Names("Date").Comment = ""
ActiveWorkbook.Worksheets("Status").Names.Add Name:="Datenreihe", RefersToR1C1 _
:= _
"=INDEX(Status!C3,MAX(2,LOOKUP(9^9,Status!R1C1:R999C1,ROW(Status!R1C1:R999C1))-90)): _
INDEX(Status!C3,MAX(3,LOOKUP(9^9,Status!R1C3:R999C3,ROW(Status!R1C1:R999C1))))"
ActiveWorkbook.Worksheets("Status").Names("Datenreihe").Comment = ""
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Datenreihe"""
ActiveChart.SeriesCollection(1).Values = "==Status!Datenreihe"
ActiveChart.SeriesCollection(1).XValues = "==Status!Date"
End Sub