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
|