Diagramm-Achsen tauschen via VBA
16.04.2020 14:27:02
Gabriel
zunächst hoffe ich, dass es Euch allen gut geht.
Nun zu meinem Problem:
Ich habe ein Diagramm, bei dem ich per VBA die Datenmenge je nach Monat anzeigen lassen will.
Sheets("Diagrams").Select
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.FullSeriesCollection(2).Select
If month = "Jan" Then ActiveChart.SetSourceData Source:=Sheets("SALES").Range("F1:G1,F150:G156")
If month = "Feb" Then ActiveChart.SetSourceData Source:=Sheets("SALES").Range("F1:H1,F150:H156")
If month = "Mar" Then ActiveChart.SetSourceData Source:=Sheets("SALES").Range("F1:I1,F150:I156")
Month ist in dem Fall = "Mar". Wenn nun dieser Befehl abgearbeitet ist, werden zwar die Daten richtig genommen aber die Achse ist verschoben. Nun kann ich beim Diagramm mit "Daten auswählen" und "Zeile/Spalte tauschen" das wieder korrigieren, dass möchte ich aber mit VBA machen. Ich habe nur leider keine Ahnung wie ich das anstellen soll und bitte um Eure Hilfe.