Dynamischer Zellenbereich für ein Diagramm
26.01.2020 12:44:14
Phips
Ich würde gerne einen dynamischen Zellenbezug für eine Tabelle erstellen. Ich habe ein 2 Linien Diagramm gewählt mit 2 Wertetabellen auf der y-Achse IST/SOLL und einen Wert auf der X-achse Zeit [hh:mm:ss].
Die Ausführung funktioniert soweit, jedoch sobald ich neue Rohdaten bekomme, die einen geringeren Zellenbereich wie G29:G1116 haben, wird mir das Diagramm abgeschnitten, da der Bereich G29:G1116 fix definiert ist. Ich will die Bereich aber variabel machen, da es auch sein kann, dass nur 100 Werte eingelesen werden können G29:G129.
Das wäre mein aktueller Code:
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" & loVariable), PlotBy _
:=xlColumns
MeinDiagramm.FullSeriesCollection(1).XValues = "=Rohwerte!C29:C1116"
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
Könnt mir da wer weiterhelfen?
Lg Phips
Anzeige