Diagrammbereich definieren
10.11.2020 10:24:41
Max
Ich benötige Hilfe bei folgendem Problem:
Ich möchte ein Diagramm auf einem sich ändernden Datenbereich erstellen. Jedoch bin ich mir nicht sicher wie ich diesen Bereich definieren kann um ihn dann bei der Diagrammerstellung wieder aufzurufen.
Bin für jegliche Hilfe sehr dankbar!
So sieht der Code aktuell aus:
Sub Diagramm()
Dim Anzahl_Datens?tze As Integer
Dim CO As ChartObject
Dim CH As Chart
Dim DDaten As Range
Anzahl_Datens?tze = (Sheets("admin").Cells(Rows.Count, 1).End(xlUp).Row - 1) * 2
'Diagrammbereich ausw?hlen
Sheets("UI_data").Activate
Cells(5, Anzahl_Datens?tze).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select = DDaten
'Diagramm erstellen
Set CO = ThisWorkbook.Worksheets("UserInterface").ChartObjects.Add(400, 100, 600, 300)
Set CH = CO.Chart
CH.ChartType = xlXYScatterSmooth
CH.SetSourceData Worksheets("UI_data").Range(DDaten)
End Sub