xy diagramm
29.07.2004 15:39:22
Hagen
wieder einmal einer der so seine liebe Not mit VBA hat und nicht versteht, was Excel von ihm will. Hab mich schon versucht zu dem Thema schlau zu machen, aber habe entweder nichts gefunden oder die vorgeschlagenen Lösungen haben auch nicht so recht funktioniert.
Also nun zum Problem:
Versuche automatisiert Excel-XY-Diagramme zu erstellen (gelingt auch schon) und die Reihen ebenfalls automatisiert mit Werten zu füllen bzw Tabellenbereiche zuzuordnen. Die Werte liegen für X in Spalte (B,K,T)(5:14) und für Y in Spalte (G,P,Y)(4:14)(soll so sein). Nun der Code, der mich zum verzweifeln bringt! Vielleicht (hoffentlich) sieht einer den Fehler den ich mache.
Sub chartCreator()
Dim myDiagram As ChartObject
Dim myDataserie As Series
Dim strName As String
For y = 1 To 3 Step 1
ActiveWorkbook.Worksheets(7).Activate
strName = Worksheets(1).Range("A1")
Set myDiagram = ActiveSheet.ChartObjects.Add _
(Left:=0, Width:=720, Top:= _
Switch(y = 1, 0, y = 2, 408, y = 3, 816), Height:=396)
myDiagram.Chart.ChartType = xlXYScatterLines
'Es sollen 3 Reihen erstellt werden
For x = 1 To 3 Step 1
strName = Switch(x = 1, ActiveWorkbook.Worksheets(1).Range("A1"), _
x = 2, Worksheets(1).Range("J1"), _
x = 3, Worksheets(1).Range("S1"))
Set myDataserie = myDiagram.Chart.SeriesCollection.NewSeries
With myDataserie
.Name = strName
.XValues = "=Tabelle1!R5C2:R14C2" 'eigentlich steht hier auch Switch
.Values = "=Tabelle1!R5C7:R14C7" 'und bei dieser Zuweisung kommt Fehler
End With
Next
'nun kommen Beschriftung und Formatierung von Titel,X-Achse und Y_Achse
End Sub
Für alle Antworten im Vorraus meinen Dank!
Anzeige