Ich möchte in einer Arbeitsmappe in jedem Blatt ein Diagramm erzeugen mit den Namen im Feld D2 der x Achse B21-B50 und y Achse D21-D50. Das Diagramm soll Logarithmisch aufgetragen werden.
Folgende Lösung habe ich versucht:
pre>
Sub Viskositaetskurve_zeichnen()
Dim wks As Worksheet
For Each wks In Worksheets
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = wks.Range("D2").Value
ActiveChart.SeriesCollection(1).XValues = wks.Range("B21:B50").Value
ActiveChart.SeriesCollection(1).Values = wks.Range("D21:D50").Value
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).ScaleType = xlLogarithmic
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).ScaleType = xlLogarithmic
ActiveChart.Axes(xlCategory).CrossesAt = 0.01
Range("K41").Select
Next
End Sub
Ergebnis. Es funktioniert, aber Alle Diagramme werden im aktuellen Fenster eingefügt.
Was muss ich verändern, damit das Diagramm sich in dem dazugehörigem Arbeitsblatt befindet.
Vielen Dank
Martin