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
|