Diagrammfläche durch Makro zuweisen
02.06.2004 16:40:29
Nadine
Ich habe aus einer Tabelle ein Diagramm im gleichen Tabellenblatt erzeugt. Nun will ich Daten hinzufügen können, ohne das ich in der Tabelle den Diagrammbereich per Hand zuweisen muss. Das Makro soll erkennen das unter der Tabelle(Diagrammfläche) ein neuer Datensatz eingetragen wurde und diesen neuen Datensatz dann in das Diagramm übernehmen.
Bis jetzt habe ich folgendes Makro und komme irgendwie nicht weiter:
Sub Makro()
Dim lastJ As Long
lastJ = Sheets("Tabelle1").Cells(Rows.Count, 10).End(xlUp).Row
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range
("A2:J" & lastJ), PlotBy _ :=xlColumns
End Sub
Wenn ich das Makro ausführen will, bekomme ich einen Laufzeitfehler ('1004' --> Die Methode 'Rows' für das Objekt'_Global' ist fehlgeschlagen).
Irgendwie klappt das nicht mit diesem "Rows.Count". Er kommt mit der Zeile "lastJ = Sheets("Tabelle1").Cells(Rows.Count, 10).End(xlUp).Row" nicht klar.Wäre schön, wenn jemand mir helfen könnte.
LG Nadine