Diagramme mit VBA erstellen

Hallo Zusammen,
ich habe noch eine Bitte. Ich habe viele sheets mit je einer Tabbelle (x und y-Werte). Mit Diagramm einfügen und dem Diagramm-Assistenen kann man ein Punkt(XY)-Diagramm erstellen, dann wieder ein weiteres Diagramm manuell hinzufügen und so weiter.
Das Makro dazu sieht so aus:


Sub M_Diagramm()
' M_Diagramm Makro
' Makro am 08.09.2004 von Piotr aufgezeichnet
Sheets("N80").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("N80").Range("C25")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='N80'!R3C3:R4C3"
ActiveChart.SeriesCollection(1).Values = "='N80'!R3C4:R4C4"
ActiveChart.SeriesCollection(1).Name = "='N80'!R1C2:R1C4"
ActiveChart.SeriesCollection(2).XValues = "='N81'!R3C3:R4C3"
ActiveChart.SeriesCollection(2).Values = "='N81'!R3C4:R4C4"
ActiveChart.SeriesCollection(2).Name = "='N81'!R1C2:R1C4"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Test Diagramm"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Test-Diagramm"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "1/t"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "ln OIT"
End With
Charts.Add
End Sub

Meine Frage: kann man diese Prozedur mit VB automatisieren in dem man das Macro verändert und irgendwo an einer Stelle eine Schleife einfügt?
Vielen Dank im voraus
Piotr

Guten Morgen Zusammen,
danke, dass Ihr Euch mit meinem Problem beschäftigt. Doch irgendwie bin ich zu blöd. Es funktioniert nicht. . Manuell die dritte Gerade einzufügen aus dem Sheet N82 ist kein Problem, nur diese "verflixte" Schleife. Was mache ich falsch? Anbei nochmal mein modifiziertes Makro:


Sub Diagramm_erstellen()
' Makro am 09.09.2004 von Piotr aufgezeichnet
Sheets("N80").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("N80").Range("D21"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "='N80'!R3C3:R4C3"
ActiveChart.SeriesCollection(1).Values = "='N80'!R3C4:R4C4"
ActiveChart.SeriesCollection(1).Name = "='N80'!R1C2:R1C4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "='N81'!R3C3:R4C3"
ActiveChart.SeriesCollection(2).Values = "='N81'!R3C4:R4C4"
ActiveChart.SeriesCollection(2).Name = "='N81'!R1C2:R1C4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = "='N82'!R3C3:R4C3"
ActiveChart.SeriesCollection(3).Values = "='N82'!R3C4:R4C4"
ActiveChart.SeriesCollection(3).Name = "='N82'!R1C2:R1C4"
' PIOTR: Bis hierhin gib es keine Probleme
For i = 83 To 85
'PIOTR: Dies habe ich nur eingeführt, um zu schauen, ob der Sheetname erkannt wird.
Sheets("tabelle1").Select
Cells(1, 1) = Sheets("N" & i).Name
'PIOTR: Das funktioniert soweit auch ganz gut
'PIOTR: Ab hier gibt es Probleme !
ActiveChart.SeriesCollection(i - 79).XValues = "='N" & i & "'!R3C3:R4C3"
ActiveChart.SeriesCollection(i - 79).Values = "='N" & i + 1 & "'!R3C3:R4C3"
ActiveChart.SeriesCollection(i - 79).Name = "='N" & i + 1 & "'!R3C3:R4C3"
Next i
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "N 80"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x-achse"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y-achse"
End With
Charts.Add
End Sub

Forumthread: Diagramme mit VBA erstellen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Diagramme mit VBA automatisieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)