Diagrammerstellung per VBA für Neueinsteiger

  • Excel

    Diagrammerstellung per VBA für Neueinsteiger

    Moin allerseits,

    als Neuanwender von VBA in Excel 2000 habe ich die Aufgabe bekommen, ein Makro zu programmieren, welches aus verschiedenen Werten in verschiedenen Arbeitsblättern automatisch Diagramme erstellt. Mit der "Makro auzeichnen"-Funktion habe ich schon ein, zwei Durchgänge gemacht (es sind insgesamt 11 Arbeitsblätter) und dachte mir, dass ich den Rest in der Programmiermaske für VBA in Excel eintippe.

    Beim Starten des Makros taucht leider ein Fehler auf, mit dem ich nicht zurechtkomme - Kann mir hier jemand helfen? Der Code sieht wie folgt aus, das Debugprogramm verweist mich auf die Zeile

    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Gehalt Ba"

    Vielen Dank für jegliche Rückmeldung!

    BenSvuettner

    Quellcode

    1. Sub STUTZ_DIAGRAMME()
    2. Charts.Add
    3. ActiveChart.ChartType = xlXYScatter
    4. ActiveChart.SetSourceData Source:=Sheets("004").Range("B2:F15"), PlotBy:= _
    5. xlColumns
    6. ActiveChart.SeriesCollection(1).Delete
    7. ActiveChart.SeriesCollection(1).Delete
    8. ActiveChart.SeriesCollection(1).Delete
    9. ActiveChart.SeriesCollection(1).Delete
    10. ActiveChart.SeriesCollection.NewSeries
    11. ActiveChart.SeriesCollection.NewSeries
    12. ActiveChart.SeriesCollection.NewSeries
    13. ActiveChart.SeriesCollection(1).XValues = "='004'!R7C6"
    14. ActiveChart.SeriesCollection(1).Values = "='004'!R27C6"
    15. ActiveChart.SeriesCollection(1).Name = "=""""""004"""""""
    16. ActiveChart.SeriesCollection(2).XValues = "='011 DTV'!R7C6"
    17. ActiveChart.SeriesCollection(2).Values = "='004'!R27C6"
    18. ActiveChart.SeriesCollection(2).Name = "=""""""011 DTV"""""""
    19. ActiveChart.SeriesCollection(3).XValues = "='145'!R7C6"
    20. ActiveChart.SeriesCollection(3).Values = "='145'!R27C6"
    21. ActiveChart.SeriesCollection(3).Name = "=""""""145"""""""
    22. ActiveChart.SeriesCollection.NewSeries
    23. ActiveChart.SeriesCollection.NewSeries
    24. ActiveChart.SeriesCollection.NewSeries
    25. ActiveChart.SeriesCollection.NewSeries
    26. ActiveChart.SeriesCollection.NewSeries
    27. ActiveChart.SeriesCollection.NewSeries
    28. ActiveChart.SeriesCollection.NewSeries
    29. ActiveChart.SeriesCollection.NewSeries
    30. ActiveChart.SeriesCollection(4).XValues = "='146 DTV'!R7C6"
    31. ActiveChart.SeriesCollection(4).Values = "='146 DTV'!R27C6"
    32. ActiveChart.SeriesCollection(4).Name = "=""""""146 DTV"""""""
    33. ActiveChart.SeriesCollection(5).XValues = "='174 DTV'!R7C6"
    34. ActiveChart.SeriesCollection(5).Values = "='174 DTV'!R27C6"
    35. ActiveChart.SeriesCollection(5).Name = "=""""""174 DTV"""""""
    36. ActiveChart.SeriesCollection(6).XValues = "='175'!R7C6"
    37. ActiveChart.SeriesCollection(6).Values = "='175'!R27C6"
    38. ActiveChart.SeriesCollection(6).Name = "=""""""175"""""""
    39. ActiveChart.SeriesCollection(7).XValues = "='185'!R7C6"
    40. ActiveChart.SeriesCollection(7).Values = "='185'!R27C6"
    41. ActiveChart.SeriesCollection(7).Name = "=""""""185"""""""
    42. ActiveChart.SeriesCollection(8).XValues = "='205 DTV'!R7C6"
    43. ActiveChart.SeriesCollection(8).Values = "='205 DTV'!R27C6"
    44. ActiveChart.SeriesCollection(8).Name = "=""""""205 DTV"""""""
    45. ActiveChart.SeriesCollection(9).XValues = "='214'!R7C6"
    46. ActiveChart.SeriesCollection(9).Values = "='004'!R27C6"
    47. ActiveChart.SeriesCollection(9).Name = "=""""""214"""""""
    48. ActiveChart.SeriesCollection(10).XValues = "='215 DTV'!R7C6"
    49. ActiveChart.SeriesCollection(10).Values = "='004'!R27C6"
    50. ActiveChart.SeriesCollection(10).Name = "=""""""215 DTV"""""""
    51. ActiveChart.SeriesCollection(11).XValues = "='216'!R7C6"
    52. ActiveChart.SeriesCollection(11).Values = "='216'!R27C6"
    53. ActiveChart.SeriesCollection(11).Name = "=""""""216"""""""
    54. ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Gehalt Ba"
    55. With ActiveChart
    56. .HasTitle = True
    57. .ChartTitle.Characters.Text = "Gehalt Ba"
    58. .Axes(xlCategory, xlPrimary).HasTitle = True
    59. .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = _
    60. "Öllaufleistung in km"
    61. .Axes(xlValue, xlPrimary).HasTitle = True
    62. .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Gehalt Ba in ppm"
    63. End With

Facebook