ich möchte unter VBA ein Diagramm mit 2 y-Achsen erstellen. Dabei habe ich mit dem Macro-Recorder folgenden Code aufgenommen:
Leider tritt ein Fehler auf (siehe Textmarkierung). Wo liegt das Problem???
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Linien auf zwei Achsen"
ActiveChart.SetSourceData Source:=Sheets("Staffing-Ergebnis").Range("A1:B6"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, name:="Staffing-Ergebnis"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "^1"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "2"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "3"
-> Fehler in der nachfolgenden Zeile
.Axes(xlCategory, xlSecondary).HasTitle = True
.Axes(xlCategory, xlSecondary).AxisTitle.Characters.Text = "4"
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "5"
End With
Mit freundlichen Grüßen
Christian