Diagramm erstellen, flexible Reiter
Hi, ich möchte via VBA Daten aus einem Reiter einlesen um Sie in einem Diagramm zu vergleichen. Die Reiter tragen die Bezeichnung 31 - 40. Auf der Übersichsseite wo der Graph abgebildet wird möchte ich eine Zelle hinterlegen in der der Reiter steht auf den zugegriffen werden soll, bspw. 33. Es könnten 50 Reiter und mehr werden, daher soll die Operation immer nur durch EIngabe des Reiters und danach durch betätigen der Schaltfläche durchgeführt werden. Wie kann ich den Reiter flexibel halten? Mein Versuch:
Sub Einlesen()
Dim i As Worksheet
Set i = ActiveCell.Name
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "='i'!R1C7:R1C256"
ActiveChart.SeriesCollection(2).Values = "='i'!R3C7:R3C256"
ActiveChart.SeriesCollection(2).Name = "='i'!R25C4"
ActiveWindow.Visible = False
End Sub
Für Hilfe wäre ich sehr dabkbar, Grüße
Marco
Antwort schreiben