Guten Morgen Community,
ich habe ein Problem mit meinem Makro. Zeichne ich es auf und spiele es in der selben Datei ab, dann funktioniert es einwandfrei. Öffne ich die selbe Datei allerdings neu und spiele es wieder ab, funktioniert es nicht mehr ganz.
Dabei habe ich darauf geachtet, dass die Ausgangsbedingungen immer die selben sind (sind es auch).
Das Makro soll ein Diagramm mit Sekundärachse ("Linie - Säule auf zwei Achsen") machen. Hier der Code...
Sheets("Alter + Kosten").Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Linie - Säule auf zwei Achsen"
ActiveChart.SetSourceData Source:=Sheets("Alter + Kosten").Range("N1:AG1,N" & LetzteZeile + 5 & ":AG" & LetzteZeile + 5 & ",N" & LetzteZeile + 2 & ":AG" & LetzteZeile + 2) _
, PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="D_Kosten+Ausfälle"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With
Das Problem: Der Debugger bringt einen Laufzeitfehler in der drittletzten Zeile, also dort, wo er mit der Sekundärachsen-name definiert werden soll. Er kann ihr keinen Name geben, weil er keine erstellt hat.
(Die Range stimmt auf jeden Fall!!)
Frage:
Warum geht das Makro nicht? Als Teilergebnis habe ich immerhin alles im Diagramm bis auf die Sekundärachse eben mit der 2. Kurve/Linie.
Hoffe, Ihr könnt mir weiterhelfen
Danke
Andi