HERBERS Excel-Forum - das Archiv
Diagramm mit 3 Achsen
Ganna

Hallo,
die vorherige Frage hat sich erledigt. Jetzt kommt die neue. Wie kann ich ein Diagramm mit einer x und 2 y Achsen erstellen?
Vielen Dank!

AW: Diagramm mit 3 Achsen
JogyB

Hi.
Die Datenreihe, markieren, Datenreihen formatieren, Achsen, Datenreihe bezieht sich auf Sekundärachse.
Gruss, Jogy
AW: Diagramm mit 3 Achsen
Ganna

Hallo,
oh nein. Gemeint ist ein Diagramm mit Makros zu programieren. Wie kann ich folgende Code ärgenzen, um zweite Achsenbeschriftung zu bekommen?
Set Bereich = Range(Cells(5, 1), Cells(imax + 5, 3))
Application.DisplayAlerts = False
Charts.Delete
Charts.Add
ActiveChart.Name = "Graphik"
With ActiveChart
.ChartType = xlXYScatter
.SetSourceData Source:=Bereich, PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Characters.Text = "Konzentrations- und Frachtentwicklung am OdB"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zeit(a)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = _
" Konzentration cs2(t)(mikro_g/l) "
.HasLegend = False
End With
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 600, 45, 0, 0).TextFrame.Characters.Text = proj
Application.DisplayAlerts = True
AW: Diagramm mit 3 Achsen
JogyB

Hi.
Ja, das war natürlich aus Deiner Frage völlig ersichtlich... ;)
Welche Datenreihe soll denn auf die zweite Achse?
Und wo liegt das Problem, mit meiner vorigen Info den Makrorecorder anzuwerfen und das aufzuzeichnen? Das jetzige Makro ist ja auch aufgezeichnet.
Gruss, Jogy
AW: Diagramm mit 3 Achsen
Ganna

Hallo,
entschuldigung :).
Ich glaube ich drücke mich falsch aus.
Ja ich bekomme 2 Reihen. Was mir fällt ist die Beschriftung der 2 Achse.
Gruß
AW: Diagramm mit 3 Achsen
JogyB

Hi.
Jetzt nur zur Sicherheit:
Ich habe es so verstanden, dass Du eine zweite y-Achse haben willst, die dann auch frei skaliert werden kann. Dazu muss dieser eine Datenreihe zugewiesen werden und bevor ich irgendwas schreiben kann, muss ich wissen, welche das ist.
Gruss, Jogy
AW: Diagramm mit 3 Achsen
Ganna

Hallo!
Ja genau das brauche ich!!!!!
Die 2 Datenreihe soll zugewiesen werden.
AW: Diagramm mit 3 Achsen
JogyB

Hi.
Vor dem End With folgendes:
.SeriesCollection(2).AxisGroup = 2
Jetzt nicht getestet, sollte aber tun.
Gruss, Jogy
AW: Diagramm mit 3 Achsen
Ganna

Hei, cool!
Die Skalierung ist zwar da , aber nicht die gleiche wie links. Wie wäre es mit 100 ter Schritten.
Und vielleicht einem Achsen titel:)
Danke
AW: Diagramm mit 3 Achsen
JogyB

Hi.
Sorry, aber das ist jetzt eine Kleinigkeit mit dem Makrorecorder. Ich müßte das genauso machen, da ich wahnsinnig selten Diagramme per Makro erstelle und das daher auch nicht im Kopf habe. Letztendlich hättest Du das in der Zeit, in der Du das Posting hier geschrieben hast, fast schon selber gemacht.
Gruss, Jogy
AW: Diagramm mit 3 Achsen
Ganna

Alles klar!
Vielen Dank!