Hallo liebe Community!

Ich bin ein Neuling und habe ein Problem bei der Datensammlung für ein XY-Diagramm (Y-Werte) und würde mich sehr darüber freuen, wenn mir jmd. von euch helfen bzw. Tipps geben könnte - ggf. ist ein eindimensionales Diagramm ebenfalls hinreichend, weil die Y-Werte über der Zeit geplottet werden sollen.

"Ein Y-Wert entspricht der Summe der Einträge einer Spalte" Da ich von meinem Betreuer noch keine konkreten Daten vorliegen habe, wollte ich zunächst mit Hilfe einer einfachen Abfrage - ob eine Zelle gefüllt ist - die funktion testen. Wenn die Zelle gefüllt ist soll eine 1 auf den Y-Wert addiert werden, wenn sie nicht gefüllt wird eine 0 addiert.

Private Sub CommandButton3_Click()

Dim wksData     As Worksheet
Dim rngData     As Range

Dim nRowsCnt    As Long
Dim nColsCnt    As Integer

Dim objChart    As Chart
Dim objChartObj As ChartObject


On Error GoTo err_CreateChart

Set wksData = ActiveSheet.Name

With wksData
    nRowsCnt = .Cells(.Rows.Count, 2).End(xlUp).Row
    nColsCnt = .Cells(5, .Columns.Count).End(xlToLeft).Column
    
    Dim i As Integer
    Dim j As Integer
    
    For i = 3 To nRowsCnt       'Laufvariable Zeile'
        For j = 7 To nColsCnt     'Laufvariable Spalte'
        
            Dim y_Wert() As Integer     '??
            Dim k As Integer
            
            k = 0
            If Not IsEmpty(.Cells(i, j)) Then
                y_Wert(k) = y_Wert(k) + 1  ' Muss man die Summenwerte der Spalten noch irgenwie abspeichern??'
                k = k + 1
              Else
                k = k + 1
            End If
        Next
    Next
        
Set rngData = .Range(.Cells(3, 7), .Cells(nRowsCnt, nColsCnt))
End With

Application.ScreenUpdating = False

Set objChart = Application.Charts.Add
  With objChart
    .ChartType = xlXYScatter
    .SetSourceData Source:=rngData, PlotBy:=xlColumns      'Wie weise ich die richtigen Datensätze zu??'
    .HasTitle = True
    .ChartTitle.Text = "Diagramm_Blub"

err_CreateChart:

End Sub