- #1
S
simdipl
Mitglied
Themenersteller
- Dabei seit
- 25.05.2005
- Beiträge
- 23
- Reaktionspunkte
- 0
Hallo Zusammen
ich habe diesmal hoffentlich nur ein kleines Syntax Problem und zwar hänge ich immer noch in meinem Tabellen Chaos und möchte nun ein Diagramm mit der Kurvenschar erstellen. Die Schleife steht aber bei der Zuweisung der Tabellenblätter hänge ich mich die Ganze zeit auf.
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets(Tabelle50).Range(B1:C503), _
PlotBy:=xlColumns
For i = 1 To 50
->Eintragen des Namens
ActiveChart.SeriesCollection(i).Name = =51-i
ActiveChart.SeriesCollection(i).XValues = =Tabelle(51-i)!R1C2:R503C2
'Zuweisung der Werte
ActiveChart.SeriesCollection(i).Values = =Tabelle(51-i)!R1C12:R503C12
'Hinzufügen einer Reihe im Diagramm
ActiveChart.SeriesCollection.NewSeries
Next
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Bremsweg
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Kurvenschar
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
kann einer von euch mal drüber schauen und mir meine Bugs aufzuzeigen.
Danke
MfG
Simdipl
ich habe diesmal hoffentlich nur ein kleines Syntax Problem und zwar hänge ich immer noch in meinem Tabellen Chaos und möchte nun ein Diagramm mit der Kurvenschar erstellen. Die Schleife steht aber bei der Zuweisung der Tabellenblätter hänge ich mich die Ganze zeit auf.
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets(Tabelle50).Range(B1:C503), _
PlotBy:=xlColumns
For i = 1 To 50
->Eintragen des Namens
ActiveChart.SeriesCollection(i).Name = =51-i
ActiveChart.SeriesCollection(i).XValues = =Tabelle(51-i)!R1C2:R503C2
'Zuweisung der Werte
ActiveChart.SeriesCollection(i).Values = =Tabelle(51-i)!R1C12:R503C12
'Hinzufügen einer Reihe im Diagramm
ActiveChart.SeriesCollection.NewSeries
Next
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Bremsweg
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Kurvenschar
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
kann einer von euch mal drüber schauen und mir meine Bugs aufzuzeigen.
Danke
MfG
Simdipl