Diagramm erstellen
10.11.2005 15:32:57
ingo
Möchte ein Diagramm über VBA erstellen. Für meine Anwendung möchte ich folgendes Ändern:
....
ActiveChart.SeriesCollection(1).xvalues=R20C8:R28C8
......
in folgendes: (hier ist mein ganzes Makro) Ic weiß wirklich net weiter. Habe schon alles ausprobiert. So fwie es jetzt ist funktionierts auf jeden fall nicht. Da ich immer andere Anzahlen von x-bzw.y-Werten habe muß ich es so o.ä. machen. Für die Hilfe danke ich schon mal im voraus.
Sub Diagramm()
I = 0
'For c = 0 To 7 Step 1 'alte Protokoll
'If "='Triggersignal'!Cells(5 + c, 3).Value" <> "" Then
Sheets("AnalyseDiagramm").Select
ActiveChart.ChartArea.Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1 + I).XValues = workSheets("neue Protokoll 1").Range("(workSheets("alte Protokoll 1").Cells(7 + (workSheets("Triggersignal").Cells(5 + I, 5)), 3)) : (workSheets("alte Protokoll 1").Cells(7 + (Worksheets("Triggersignal").Cells(5 + I, 5)) + (workSheets("Triggersignal").Cells(5 + I, 6)), 3))")
ActiveChart.SeriesCollection(1 + I).Values = worksheets("alte Protokoll 1").Range("(worksheets("alte Protokoll 1").Cells(7 + (worksheets("Triggersignal").cells(5 + I, 5)), 8)) : (worksheets("alte Protokoll 1").Cells(7 + (worksheets("Triggersignal").cells(5 + I, 5)) + (worksheets("Triggersignal").cells(5 + I, 6)), 8))")
ActiveChart.SeriesCollection(1 + I).Name = Cells(5 + c, 2)
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
'End If
'Next c
End Sub