Diagramm lässt sich aus Array NICHT erstellen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ereza.

    Diagramm lässt sich aus Array NICHT erstellen

    Hallo liebes Forum,

    ich bin dabei ein Programm zu schreiben, wo unter anderem, ein Diagramm automatisch erstellt werden soll. Da ich leider keinen Range-Bereich nutzen kann und stattdessen einzelne Werte verwenden muss, möchte ich diese Werte gezielt in ein Array schreiben und dieses dann für das Diagramm verwenden. Hier folgender Auszug von meiner Entwicklung bisher:

    Visual Basic-Quellcode

    1. '-------------------------------------------------------------------------
    2. ' - Neues Workbook generieren... -
    3. '-------------------------------------------------------------------------
    4. Dim wbMutter As Workbook
    5. Dim wbNeu As Workbook
    6. Dim wsAusgabeNeu As Worksheet
    7. Dim wsTabelle1Neu As Worksheet
    9. 'kopiere Ausgabe Worksheet von Quelldatei(wbMutter) in sich neu-generierendes Workbook...
    10. Set wbMutter = ThisWorkbook
    11. Set wbNeu = Workbooks.Add
    12. wbMutter.Worksheets(3).Copy before:=wbNeu.Worksheets(wbNeu.Worksheets.Count)
    14. '-------------------------------------------------------------------------
    15. ' - Erstellung der Charts....... -
    16. '-------------------------------------------------------------------------
    18. 'mache Tabelle "Ausgabe" im neuen Worksheet über Variable adressierbar...
    19. Set wsAusgabeNeu = wbNeu.Worksheets("Ausgabe")
    20. Set Grafik1 = wbNeu.Charts.Add(after:=wsAusgabeNeu)
    22. 'Grafik: Belegte Betten - Monatsdurchschnitt Klinik gesamt
    23. For indx = 1 To UnikateJahreszahlenSack.Count
    24. UnikateJahreszahlenSackItem = UnikateJahreszahlenSack.Item(indx)
    25. Grafik1.SeriesCollection.NewSeries
    26. Grafik1.SeriesCollection(indx).Name = UnikateJahreszahlenSackItem
    27. ZeilenMax_Tab3 = wsAusgabeNeu.Cells(Rows.Count, 3).End(xlUp).Row
    28. SpaltenMax_Tab3 = wsAusgabeNeu.Cells(Columns.Count, 2).End(xlUp).Row + 1
    30. For indx2 = 1 To ZeilenMax_Tab3
    31. indx3 = indx2 - 1
    32. If indx2 > 1 Then
    33. If wsAusgabeNeu.Cells(indx2, 3) = "gesamt" And wsAusgabeNeu.Cells(indx3, 2) = UnikateJahreszahlenSackItem Then
    34. Grafik1.SeriesCollection(indx).Values = wsAusgabeNeu.Range(wsAusgabeNeu.Cells(indx2, 5), wsAusgabeNeu.Cells(indx2, SpaltenMax_Tab3))
    35. Grafik1.SeriesCollection(indx).XValues = wsAusgabeNeu.Range(wsAusgabeNeu.Cells(2, 5), wsAusgabeNeu.Cells(2, SpaltenMax_Tab3))
    36. Else
    37. End If
    38. Else
    39. End If
    40. Next
    41. Next
    42. 'Grafik formatieren...
    43. Grafik1.ApplyLayout (3)
    44. Grafik1.ChartTitle.Text = "Alle Kliniken, belegte Betten - Monatsdurchschnitt:" & vbCrLf & UnikateJahreszahlenSack.Item(1) & "-" & UnikateJahreszahlenSack.Item(UnikateJahreszahlenSack.Count)
    47. 'Grafik: Belegte Betten - Monatsdurchschnitt Klinik gesamt
    48. Set wsTabelle1Neu = wbNeu.Worksheets("Tabelle1")
    49. Set Grafik2 = wbNeu.Charts.Add(before:=wsTabelle1Neu)
    50. ReDim Array1DFürDiagrammXWerte(1 To UnikateJahreszahlenSack.Count)
    51. ReDim Array1DFürDiagrammYWerte(1 To UnikateJahreszahlenSack.Count)
    52. For indx = 1 To UnikateJahreszahlenSack.Count
    54. UnikateJahreszahlenSackItem = UnikateJahreszahlenSack.Item(indx)
    56. 'Befüllung der Y-Werte...
    57. For indx2 = 1 To ZeilenMax_Tab3
    58. indx3 = indx2 - 1
    59. If indx2 > 1 Then
    60. If wsAusgabeNeu.Cells(indx2, 3) = "gesamt" And wsAusgabeNeu.Cells(indx3, 2) = UnikateJahreszahlenSackItem Then
    61. Array1DFürDiagrammYWerte(indx) = wsAusgabeNeu.Cells(indx2, 4)
    62. Else
    63. End If
    64. Else
    65. End If
    66. Next
    67. Array1DFürDiagrammXWerte(indx) = UnikateJahreszahlenSackItem
    69. Next
    72. 'Grafik2.SeriesCollection(1).Name = wsAusgabeNeu.Cells(3, 1)
    73. Grafik2.SeriesCollection(1).Values = Array1DFürDiagrammYWerte
    74. Grafik2.SeriesCollection(1).XValues = Array1DFürDiagrammXWerte
    78. 'Schalte automatische Berechnung wieder ein...
    79. Application.Calculation = xlCalculationAutomatic
    80. 'Schalte automatische Bildschirmaktualisierung wieder ein...
    81. Application.ScreenUpdating = True


    Der Compiler bleibt hier hängen:

    Visual Basic-Quellcode

    1. 'Grafik2.SeriesCollection(1).Name = wsAusgabeNeu.Cells(3, 1)
    2. Grafik2.SeriesCollection(1).Values = Array1DFürDiagrammYWerte


    Als Fehler spuckt er mir:

    Laufzeitfehler '1004': Der Parameter ist ungültig.

    aus...

    Anscheinend hat er ein Problem dass ich hier Grafik2.SeriesCollection(1).Values ein Array als Werte zuweise. Das müsste aber laut Internet-Recherche auf jeden Fall gehen! - Deshalb verstehe ich ehrlich gesagt nicht, warum er das nicht mag. Die Arrays für die Werte sind übrigens auch alle korrekt befüllt (siehe Screenshot) - also Werte müsste er auch zur Verfügung haben.

    Kann mir einer von euch vielleicht weiterhelfen und mir erklären warum er mir hier einen Fehler ausgibt?

    Vielen Dank und liebe Grüße!

    *Code-Tags korrigiert*
    Bilder

    • screenshot1.JPG

      147,52 kB, 1.223×971, 56 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Habe soeben selber den Fehler gefunden, da ich den Code (neuer Tag, neues Glück, nochmals durchgegangen bin...)

    Visual Basic-Quellcode

    1. ​Grafik2.SeriesCollection.NewSeries


    hat gefehlt!! - Ohne der Anweisung geht's natürlich nicht ;)

Facebook
Telefonspende