Hallo community,

ich arbeite momentan an einem fertigen Code und will dort beim Erstellen von Diagrammen eine zweite Y-Achse anzeigen. Leider habe ich mit VBA noch nie Diagramme erstellt. Vielleicht könnt ihr mir den Fehler am Code sagen:

With mychart
    .AutoScaling = True                                     '= Autoskalierung des Diagramms
    .HasLegend = True                                       '= Hat eine Legende
    .HasDataTable = False                                   '= Hat eine Datenlegende
    .HasTitle = True                                        '= Hat einen Titel
    
    .ChartTitle.text = B.Get_text("Titel", zeile)   '= Titel des Diagramms
    
    '= X-Achsetitel an und aus
    .Axes(xlCategory, xlPrimary).HasTitle = True
    
    '= X-Achsentitel bei Linien / Bar-Graph
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.text = B.Get_text("Titel_X_Achse", zeile)
    
    '= y1-Achsentitel an und aus
    .Axes(xlValue, xlPrimary).HasTitle = True
    
    '= y1-Achsentitel bei Linien / Balken
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.text = B.Get_text("Titel_Y1_Achse", zeile)
    
 '------------------------------------------------------------------------------------------------------   
    '= y2-Achsentitel an und aus   'HIER KOMMT DER FEHLER
    .Axes(xlValue, xlSecondary).HasTitle = True
    
    '= y2-Achsentitel bei Linien / Balken
    .Axes(xlValue, xlSecondary).AxisTitle.Characters.text = B.Get_text("Titel_Y2_Achse", zeile)
 '------------------------------------------------------------------------------------------------------   
    
    '= Datenbereich zuweisen
    .SetSourceData Source:=q
    
 End With

Der Fehlercode ist: Laufzeitfehler 2147467259(80004005) - Die Methode 'Axes' für das Oberjekt '_chart' ist fehlgeschlagen.

Ohne den Kommentierten Bereich ist das Progamm lauffähig aber natürlich nur mit einer y-Achse