VBA XY Diagramm mit dyn. Zeilenende

Hallo zusammen,
Ich sitze jetzt schon mehrere Stunden an diesem Problem und habe noch mehr Stunden damit verbracht, das Forum durchzusuchen.
Vielleicht hat von Euch jemand Lust, mir mal auf die Sprünge zu helfen...
Ich habe ein "Messdaten" Registerblatt, welches ich über Makros importiere und die endgültigen Werte berechne.
Über ein Makro Diagramm1Erstellen möchte ich jetzt ein X-Y Diagramm erstellen mit den dynamischen Daten der Spalte B und D. Dabei ist Spalte B die X-Achse und Spalte D die Y-Achse.
Ich entschuldige mich im Voraus für dieses banale Problem
Gruß Marvin.

Sub Diagramm1Erstellen()
Application.ScreenUpdating = False
Dim Ende As Variant
Sheets("Messdaten").Select
Ende = Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Charts.Add Before:=Worksheets("Messdaten")
With ActiveChart
.ChartType = xlXYScatter
.SetSourceData Source:=Sheets("Messdaten").Range("A2:D" & Ende), PlotBy:= _
xlColumns
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = "='Messdaten'!R2C2:R" & Ende & "C2"
.SeriesCollection(1).Values = "='Messdaten'!R2C4:R" & Ende & "C4"
.SeriesCollection(1).Name = "Kraft zu Geschwindigkeit"
End With
Application.ScreenUpdating = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Diagramm1Erstellen() Application.ScreenUpdating = False Dim Ende As Variant, iSerie As Integer, objSerie As Series Sheets("Messdaten").Select Ende = Cells(Rows.Count, 1).End(xlUp).Row ThisWorkbook.Charts.Add Before:=Worksheets("Messdaten") With ActiveChart .ChartType = xlXYScatter .SetSourceData Source:=Sheets("Messdaten").Range("A2:D" & Ende), PlotBy:= _ xlColumns 'überzählige Datenreihen löschen For Each objSerie In .SeriesCollection iSerie = iSerie + 1 If iSerie > 1 Then objSerie.Delete End If Next .SeriesCollection(1).XValues = "='Messdaten'!R2C2:R" & Ende & "C2" .SeriesCollection(1).Values = "='Messdaten'!R2C4:R" & Ende & "C4" .SeriesCollection(1).Name = "Kraft zu Geschwindigkeit" End With Application.ScreenUpdating = True End Sub

Sub DiaErstellen() Dim Ende As Long With Worksheets("Messdaten") Ende = .Cells(.Rows.Count, 1).End(xlUp).Row End With ThisWorkbook.Charts.Add Before:=Worksheets("Messdaten") With Charts(Charts.Count) .ChartType = xlXYScatter ' Datenbereich auf 1 Zelle (z.B. A1) begrenzen damit maximal 1 Datenreihe erstellt wird .SetSourceData Source:=Worksheets("Messdaten").Range("A1"), PlotBy:=xlColumns ' falls diese Zelle leer ist muss erst 1 Datenreihe erstellt werden If .SeriesCollection.Count = 0 Then .SeriesCollection.NewSeries With .SeriesCollection(1) .Name = "Kraft zu Geschwindigkeit" .XValues = Worksheets("Messdaten").Range("B2:B" & Ende) .Values = Worksheets("Messdaten").Range("D2:D" & Ende) End With End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA XY Diagramm mit dyn. Zeilenende

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA XY Diagramm mit dyn. Zeilenende

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread