Hallo zusammen, 

Ich möchte gerne ein Linien-diagramm erstellen aus meinem Quellblatt. 

y-Achse: die kalenderwochen (Woche/Jahr)

x-Achse: die Kalenderwoche an der Messungen stattfanden

Zu dem möchte ich eine Abfrage fahren, die die Frage stellt welche KalenderWoche analysiert werden soll (Woche/Jahr) und diese in der y-Achse sucht und die entsprechende Zeile dazu im Diagramm darstellt. 

Hierzu müsste jedoch auch im Code die x und y-Achse vertauscht werden um eine richtige Auswertung zufahren. 

Ich hoffe mir kann da jmd weiterhelfen: 

Mein Code bisher : 

Sub DiagrammBlattErstellen()


ThisWorkbook.Charts.Add Before:=Worksheets("Sheet1")

 ActiveChart.SetSourceData Worksheets("Sheet1").Range("A1:V76")

ActiveChart.Name = "Auswertung"

End Sub




Sub DiagrammBearbeiten()

Dim MeinDiagramm As Chart

Set MeinDiagramm = ThisWorkbook.Charts("Auswertung")

MeinDiagramm.ChartType = xlLine

MeinDiagramm.HasTitle = True

MeinDiagramm.ChartTitle.Text = "Titel"

With MeinDiagramm.Axes(xlCategory)

.HasTitle = True

.AxisTitle.Text = "Datum"

End With

With MeinDiagramm.Axes(xlValue)

.HasTitle = True

.AxisTitle.Text = "Forecast"

.MinimumScale = 10

.MaximumScale = 500

End With

End Sub