Hallo,
vielleicht könnt ihr mir bei meinem Problem helfen.
Und zwar will ich ein Oberflächendiagramm über diese Tabelle erstellen:
2 2,5 3 3,5 4 4,5
400 2300 2400 2500 2600 2600 2600
350 1884 2058 2000 2000 2100 2100
300 1726 1800 1779 1589 1600 1700
250 1421 1421 1400 1400 1300 1200
200 1200 1221 1158 1068 889,5 900
In der x-Achse sollen die Werte A2 bis A6 stehen, in y B1 bis G1 und in z B2:G6 (es können theoretisch noch weitere Zeile und Spalten hinzukommen).
Mein Entwurf sieht jetzt so aus:
Dim objCh As Chart
Sheets(7).ChartObjects.Add Left:=600, Top:=90, Width:=400, Height:=225
Set objCh = Sheets(7).ChartObjects(1).Chart
With objCh
.HasTitle = True
.ChartTitle.Characters.Text = "Titel"
.SetSourceData Source:=Sheets(7).Range(Sheets(7).Cells(2, 2), Sheets(7).Cells(l, k))
.ChartType = xlSurface
End With
Dim xAxis As Axis
Dim yAxis As Axis
Set xAxis = objCh.Axes(xlCategory)
With xAxis
.HasTitle = True
.AxisTitle.Text = "xTitel"
.CategoryNames = Sheets(7).Range(Sheets(7).Cells(1, 2), Sheets(7).Cells(1, l)) ', PlotBy:=xlRows
End With
Set xAxis = Nothing
Set yAxis = objCh.Axes(xlSeriesAxis)
With yAxis
.HasTitle = True
.AxisTitle.Text = "yTitel"
.SeriesAxisNames = Sheets(7).Range("A2:A" & k)
End With
Set yAxis = Nothing
Mein Problem ist jetzt, dass er mir in der y-Achse nur 3 Datenreihen angibt... ich denkt mal, dass ".SeriesAxisNames falsch ist", finde aber nirgends den richtigen Befehl.
Danke für die Hilfe!
Gruß, Ann