|
Hallo, Ich arbeite seit kurzem erst mit VBA und hätte ein Problem bei dem ich nicht mehr weiter komme. Wäre toll wenn mir jemand helfen könnte ;).
Ziel ist es, einen dynamisches Diagramm zu erstellen. Ich habe in der C (den Zeitstempel für die x-Achse - hh:mm:ss) und in der Spalte F/G habe ich zwei Wertreihen. Ich habe die Zeilen 29:1116 definiert. Das Problem ist aber, das die Werte auch weniger sein können und dann sollte sich das Diagramm anpassen.
Code wäre:
Sub Diagramm()
Dim MeinDiagramm As Chart
Dim Rahmen As ChartObject
Set Rahmen = Worksheets("Auswertung").ChartObjects.Add(60, 220, 617, 230)
Set MeinDiagramm = Rahmen.Chart
MeinDiagramm.ChartType = xlLine
MeinDiagramm.SetSourceData Worksheets("Rohwerte").Range("F29:G1116")
MeinDiagramm.FullSeriesCollection(1).XValues = "=Rohwerte!$C$29:$C$1116"
MeinDiagramm.FullSeriesCollection(1).Name = "=""SOLL"""
MeinDiagramm.FullSeriesCollection(2).Name = "=""IST"""
MeinDiagramm.HasTitle = True
MeinDiagramm.ChartTitle.Text = "Glühkurve"
MeinDiagramm.Axes(xlPrimary).HasTitle = True
MeinDiagramm.Axes(xlPrimary).AxisTitle.Text = "Temp"
MeinDiagramm.Axes(xlCategory).HasTitle = True
MeinDiagramm.Axes(xlCategory).AxisTitle.Text = "Zeit[hh:mm:ss]"
Call Diagramm_bearbeiten
End Sub
Würde mich um Unterstützung freuen
Lg Phips
|