Diagramm in Userform anzeigen
Mandy
seit langem habe ich mal wieder ein Problem.
Ich habe Tabelle erstellt, in der ich die Gewichte meiner Kaninchen erfassen möcht und diese in einer Userform ausgeben möchte.
Dazu habe ich zunächst ein Spreadsheet erstellt und dort die Inhalte von den Spalte A (Datum) und B (Gewicht) hinzugefügt. Soweit klappt auch alles ganz gut, jedoch scheiter ich jetzt daran diese in die Chartspace zu übernehmen. Denn ich möchte nicht einfach nur einen bestimmten vordefinierten Bereich dargestellt haben, sondern immer die letzten 10 Einträge.
Und so sah das bei mir dann aus:
Private Sub UserForm_Diagramm()
Dim c
Dim arX, arY
Dim Zeilenanzahl As Integer
Zeilenanzahl = Sheets("Kaninchen").Cells(Rows.Count, 1).End(xlUp).Row
TextBox1.Value = Zeilenanzahl
arY = WorksheetFunction.Transpose(Range(Cells(Zeilenanzahl - 10, 1), Cells(Zeilenanzahl, 1))) _
arX = WorksheetFunction.Transpose(Range(Cells(Zeilenanzahl - 10, 2), Cells(Zeilenanzahl, 2))) _
ChartSpace1.Clear
ChartSpace1.Charts.Add
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).Type = c.chChartTypeLineMarkers
ChartSpace1.DataSource = Spreadsheet1
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimSeriesNames, 0, "B1"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 0, arX
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 0, arY
ChartSpace1.Charts(0).HasLegend = False
End Sub
Es Wäre sehr nett, wenn ihr euch meinem Problem annehmen könntet und mir helfen würdet.
Vielen Dank schon mal vorab
Mandy
Anzeige