Hallo fleissige Excel Freunde,
ich habe hier folgendes Problem:
Excel-Datei mit x Tabellenblättern (Variabel), das letzte Blatt ist ein Diagramm (mit dem Namen Diagramm ;) )
Spalte 5 davon sind ~600 einträge mit Zahlenwerten (Messwerte, die aneinandergereiht eine Art Oberflächenwelligkeit ergeben)
nun möchte ich daraus ein Diagramm zum vergleich der x Tabellen erstellen. Soweit kein Problem, die Parameter des Diagramm bekomme ich dank Rekorder auch ins VBA, jedoch ist die Datenauswahl ein Problem für mich.
Wie geht es, dass das Makro aus allen Tabellenblättern die Spalte 5 ausliesst und diese in das Diagramm auf der letzten Seite bringt?
Der Anfang des aufgenommenen sieht so aus (zum beispiel mal 3 der x tabellen reingetan), das folgende sind dann nur diagrammparameter
--------
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Diagram").Range("D49")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "='AA254'!C7"
ActiveChart.SeriesCollection(1).Name = "='AA254'!R2C8"
ActiveChart.SeriesCollection(2).Values = "='AA358'!C7"
ActiveChart.SeriesCollection(2).Name = "='AA358'!R2C8"
ActiveChart.SeriesCollection(3).Values = "='AA224'!C7"
ActiveChart.SeriesCollection(3).Name = "='AA374'!R2C8"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Diagram"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
-------
Vielen Dank und Gruss,
Christian