ich möchte ein Diagramm erstellen mit Daten aus verschiedenen Tabellenblättern.
Die Daten sind in jeden Blatt immer an der selben Stelle.
Also müsste ich doch eine Schleife programmieren können mit der ich alle Blätter anspreche.
Sub Diagramm_erstellen()
Dim i
For i = 1 To 100
if worksheets(i)=true
Anweisung
Next i
End Sub
Ich bräuchte bitte Hilfe mit der Schleife und dann natürlich auch noch mit dem Diagramm.
Sub Makro2()
' ins Diagramm übertragen
Sheets("Gesamt").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = "='2004 (1)'!R196C3:R202C3"
ActiveChart.SeriesCollection(2).Name = "='2004 (1)'!R1C2:R1C2 "
End Sub
Dieses Diagramm sollte in die Schleife eingebunden werden. Aber ich krieg das einfach nicht hin.
Danke