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
|