Office: (Office 2010) Diagramm mittels VBA automatisch an die genutzte Tabellenlänge anpassen (Excel 2010)

Moin moin,

ich habe mit Hilfe der Makroaufnahmefunktion ein Diagramm erstellt und alles hat funktioniert.
Jetzt möchte ich das selbe Makro auch auf längere Tabellen anwenden und habe auch schon einen Befehl gefunden, der mir die Länge meiner Tabelle ausgibt. Leider bekomme ich diesen Wert nicht in den Diagrammaufruf eingefügt.

Dim x As Integer

x = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("I17").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Beispiel"""
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!$E$8:$E$5891" <= HIER SOLL DIE x VARIABLE EINGEFÜGT WERDEN
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!$C$8:$C$5891"

Die Variable einfach rein zu schreiben funktioniert nicht und die Möglichkeiten, die ich in anderen Foren gefunden habe, konnte ich nicht auf mein Beispiel übertragen.

Vielen Dank schonmal im Voraus.

Mit freundlichem Gruße Wiley.

 

Ok, ich hab es heraus gefunden.

Code:

ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!$E$8:$E$" & x

 

Moin!
Wenn die Datenbasis ein Listobjekt (Einfügen, Tabelle) ist, brauchst Du kein VBA!
Wenn die Tabelle "wächst", wird der Bereich automatisch angepasst.

Gruß Ralf