bevor jemand schimpft: Ich habe das Problem schon im Forum gesucht und auch eine Lösung gefunden, konnte sie jedoch nicht für meine Anwendung direkt umsetzen, da meine Kenntnisse scheinbar noch nicht ausreichen.
Ich lasse mir bestimmte Daten aus einer mit einem anderen Makro erstellen Tabelle ausgeben, die ich dann ordne und graphisch ausgeben lasse. Das mache ich in einer Schleife mit folgendem Code:
For Each are In Range("E:G").SpecialCells(2).Areas 'ar ist ein Range
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlXYScatterSmooth
.SetSourceData Source:=are, PlotBy:=xlColumns
.Axes(xlCategory).MinimumScale = 0
.Legend.Position = xlBottom
With .Parent
.Top = are.Cells(1).Top
.Left = are.Cells(1).Offset(0, 12).Left
.Height = are.Height
.Width = Range("Q1:U1").Width
End With
End With
Next are
Dadurch erhalte ich dann eine Darstellung, wie sie rechts unten zu sehen ist.
Dann habe ich den Macrorecorder bemüht, um herauszufinden, wie ich die zweite y-Achse nutzen kann. Ich denke der wichtige Befehl ist hier:
ActiveChart.SeriesCollection(2).AxisGroup = 2
Kann mir jemand erklären, wie ich diese Funktion so nutzen kann, dass sie in der Schleife für jeden Graphen gültig ist?
Ich habe testweise folgenden Befehl getestet, um zu überprüfen, ob ich damit wenigstens das letzte Diagramm "ansprechen" kann. Den Rest hätte ich dann wieder in einer Schleife probiert. Hab aber leider nicht funktioniert.
ActiveSheet.ChartObjects(ChartObjects.Count).Activate
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).AxisGroup = 2