Hallo Zusammen

Ich möchte den Diagarmmbereich des Diagarmms 1 (auf dem Blatt "Diagarmm") variabel an die Anzahl Einträge in Tabelle4 anpassen. Ich habe geschafft, dass die Variabel "lz" den Spaltenwert der letzten gefüllten Spalte anzeigt, jedoch gibt mir die letzte Zeile des untenstehenden Codes den Fehler 1004: Anwednugs- oder objektdefinierter Fehler.

Ich bin ein ziemlicher Anfänger was Makros angeht. Vielleicht sieht ja jemand spontan, wo das Problem liegt.

Range("J4").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Selection.End(xlToLeft).Select
    Dim lz As Variant
    lz = ActiveCell.Column

    Sheets("Diagramm").Select
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.PlotArea.Select

    ActiveChart.SeriesCollection(1).Values = Sheets("Tabelle4").Range(Cells(5, 10), Cells(5, lz))

Wäre wirklich froh um Hilfe... Danke schon im Voraus!

Gruss Paedi