Ich hab Probleme mit dem folgenden Code. Bei honk().wurst schmeisst der Compiler "Invalid qualifier".
Klingt auch logisch aber wie kann ich denn alle Daten in einem Rutsch übergeben?
Wenn ich keinen Type mehr im Array habe funktioniert es "= honk".
Auf dem Sheet stehen die Daten und da ist auch ein Chart.
Muss ich wirklich erst die Daten in eine "einfaches" Array kopieren oder geht das auch mit Type?
Type peter
wurst As Double
End Type
Sub fillchart()
Dim honk() As peter
ReDim honk(6)
For i = 0 To 6
honk(i).wurst = Cells(4 + i, 4)
Next i
Set ws1 = Sheets("Sheet1")
With ActiveChart
'.Axes (xlSecondary)
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = ws1.Range(ws1.Cells(4, 2), ws1.Cells(9, 2))
.SeriesCollection(1).Values = ws1.Range(ws1.Cells(4, 3), ws1.Cells(9, 3))
.SeriesCollection(1).Name = "Orders"
'.SeriesCollection(2).Values = ws1.Range(ws1.Cells(4, 4), ws1.Cells(9, 4))
.SeriesCollection(2).Values = honk().wurst
.SeriesCollection(2).AxisGroup = 2
End With
End Sub
|