Hallo Leute,
ich bin hier gerade etwas am verzweifeln. Meine VBA Kentnisse sind ehr schlecht als recht und ich scheitere an folgendem Problem:
Ich habe massig verschieden Messwerte über einen Zeitraum. Dieser ist frei wählbar und anschließend soll der User per Checkboxen entscheiden können zu welchen Messwerten ein Chart erstellt wird. Für das erstellen eines Charts habe ich ein Sub geschrieben.
Problem: erstes Chart passt. zweites hat dann aber die Werte vom ersten UND zweiten drinne... beim dritten Chart dann drei usw...
Komme nicht drauf wie ich das verhindere.
hier mal mein sub:
dabei ist xRange und yRange die named Ranges der x und y Werte, cName der Titel, pos die gewünschte Position, style ist für das Wählen verschiedener Chart-Typen und color gibt die Farbe der Linie an.
Sub createChart(xRange, yRange, cName As String, pos, style, color)
ActiveWorkbook.Sheets("Sheet2").Activate
'Create a new chart.
Set chartName = Charts.Add
Set chartName = chartName.Location(Where:=xlLocationAsObject, Name:="Sheet2")
With chartName
'Style via Combobox.
If style = 1 Then
.ChartType = xlLine
End If
If style = 2 Then
.ChartType = xlLineMarkersStacked
End If
'Set data source range.
chartName.SetSourceData Source:=Range(xRange, yRange)
ActiveChart.SeriesCollection.NewSeries
chartName.SeriesCollection(1).Format.Line.ForeColor.RGB = color
.HasTitle = True
.ChartTitle.Text = cName
'The Parent property is used to set properties of
'the Chart.
With .Parent
.Top = Range(pos).Top
.Left = Range(pos).Left
End With
End With
End Sub
Bin für alle Tipps offen :)
Danke
Nils
|