Grafiken aus dynamischem Array von Werten

Morgen Andi,
falls der Bereich (Größe) der Einzeldiagramme immer gleich ist (also 1. Diagramm: A1:B2; 2. Diagramm: A3:B4 ...).

Könnte Dir das hier eventuell als Ansatz dienen:


Sub Makro1()
Dim i1 As Integer
Dim i2 As Integer
Dim test As Integer
Dim i3 As Integer
Dim i4 As Integer
test = InputBox(test, "Wie oft?", 1)
i4 = 1
For i3 = 1 To test
i1 = i4 + 3
i2 = i1 + 2
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("D" & i1 & ":F" & i2), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Sheets("Tabelle1").Select
Range("A1").Select
i4 = i1
Next i3
End Sub

Hierbei habe ich angenommen, dass die Datenquellen D4:F6; D7:F9 ... sind.
Muss entsprechend angepasst werden.

Am Anfang gibst Du in eine Inputbox ein wie oft die Schleife durchlaufen wird (Anzahl der zu erzeugenden Diagramme).
Diesen Abschnitt kann man eventuell auch noch dynamisch gestallten, indem man ermittelt wie viele Zeilen besetzt sind, diese dann durch die Zeilenzahl pro Diagramm teilt --> Anzahl Diagramme.

Hoffe der Ansatz hilft Dir weiter.

Gruß
Jens

Hoffe auf Rückmeldung!
Code ist mit Sicherheit verbesserungsfähig; nur mal auf die schnelle erzeugt!

Servus Jens !!

also Danke für die super Hilfe!!

Anbei noch der Quellcode des fertigen Files:


Sub makro()
Dim i As Integer
Dim zeilenanzahl As Integer
Sheets("Tabelle1").Activate
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To zeilenanzahl
Sheets("Tabelle1").Activate
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!R1C3:R1C62"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R" & i & "C2:R" & i & "C61"
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R" & i & "C1"
Diagrammname = Range("Tabelle1!A" & i).Value
ActiveChart.Name = Diagrammname
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Diagrammname
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next i
End Sub

Vieleicht brauchbar für was
Anderes

Grafiken aus dynamischem Array von Werten

Forumthread: Grafiken aus dynamischem Array von Werten

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Grafiken aus dynamischem Array von Werten

Forumthread: Grafiken aus dynamischem Array von Werten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread