VBA Sekundärachse y-Achse Erstellen

Office: (Office 2013) VBA Sekundärachse y-Achse Erstellen

Helfe beim Thema VBA Sekundärachse y-Achse Erstellen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich habe durch VBA ein Diagramm im Tabellenblatt "Tabelle2" erstellt. Ich habe X-Achse durch Spalte "K" und Y-Achse durch Spalte "I"... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von beterman14, 18. Juli 2016.

Hallo zusammen,
ich habe durch VBA ein Diagramm im Tabellenblatt "Tabelle2" erstellt.
Ich habe X-Achse durch Spalte "K" und Y-Achse durch Spalte "I" aus dem Tabellenblatt "Tabelle1" definiert.

Mein Ziel ist, zweite Sekundärachse y-Achse im Bezug auf Spalte "J" zu erstellen.
Leider der folgenden Code hat nix gebracht.

Code:

.SeriesCollection(2).XValues = x2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie muss ich meinen Code anpassen?

Code:

Option Explicit

Sub x()
Dim co As ChartObject
Dim r As Range

Dim x As Range
Dim x2 As Range
Dim y As Range

Set x = Range("k1", ActiveSheet.Range("k65536").End(xlUp))
'Set x2 = Range("J1", ActiveSheet.Range("J65536").End(xlUp))
Set y = Range("i1", ActiveSheet.Range("i65536").End(xlUp))

Set r = Range("D2:L40")
Set co = Worksheets("Tabelle2").ChartObjects.Add(r.Left, r.Top, r.Width, r.Height)
co.Name = "myChart"
With co.Chart
.ChartType = xlXYScatterLinesNoMarkers
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = x
'.SeriesCollection(2).XValues = x2
.SeriesCollection(1).Values = y
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlCategory, xlSecondary) = False
.HasAxis(xlValue, xlPrimary) = True
.HasAxis(xlValue, xlSecondary) = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe Beispiel Datei im Anhang eingefügt.

Vg
Juilias

:)

Office: (Office 2013) VBA Sekundärachse y-Achse Erstellen

VBA Sekundärachse y-Achse Erstellen

VBA Sekundärachse y-Achse Erstellen

VBA Sekundärachse y-Achse Erstellen - Similar Threads - VBA Sekundärachse Achse

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Textteile aus Zelle mit mehreren Absätzen

Aufrufen Datei aus SharePoint per VBA

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

VBA Zeilen kopieren mit Bedingung

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

Laufzeitfehler 9 VBA