Thema Datum  Von Nutzer Rating
Antwort
Rot Nachträglich Datenreihe in Diagramm einfügen
 05.12.2016 11:34:26 Tobi
Solved
05.12.2016 12:00:06 Gast77430
NotSolved
05.12.2016 13:35:04 Tobi
NotSolved
05.12.2016 14:20:46 Tobi
NotSolved
05.12.2016 19:18:45 Gast66164
NotSolved

Ansicht des Beitrags:
Von:
Tobi		 Datum:
05.12.2016 11:34:26		 Views:
1645		 Rating:
     
Antwort:
 Nein
Thema:
Nachträglich Datenreihe in Diagramm einfügen

Moin zusammen,

ich habe ein Makro, mit dem ich Diagramme mit jeweils drei Datenreihen zeichnen lasse. Nun möchte ich nachdem das gezeichnet ist, über eine MsgBox entscheiden lassen, ob noch eine vierte Datenreihe eingezeichnet werden soll. Ich weiß nicht, wie ich das richtige Diagramm adressiere.

Das hier ist der Ausschnitt aus dem Code, in dem die ersten Diagramme erstellet werden ( die Diagramm beziehen sich immer auf 36 Zeilen, wobei jeweils 12 eine Datenreihe darstellen - insgesamt werden mit der Schleife etwa 200 Diagramme erstellt.)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
For i = lngAb To lr Step 36
With ActiveSheet
l = .Cells(i, "S:S").Left                       'wird rechts neben Spalte S plaziert
t = .Cells(i, "S:S").Top                        'in der obersten Zelle des jeweiligen Bereichs
Set cht = .ChartObjects.Add(l, t, 360, 240)     '360 ist die Breite entspricht in diesem Fall 6 Standard Spalten, und 240 ist in diesem Fall die Höhe
End With
With cht.Chart
    .SetSourceData Source:=rng3, PlotBy:=xlColumns
    .ChartType = xlLineMarkers
    .HasLegend = True
    .HasTitle = True
    .ChartTitle.Text = Cells(i, "A:A").Value & Cells(i, "B:B").Value
    .ChartTitle.Font.Size = 10
    .Axes(xlValue).TickLabels.Font.Size = 8
    .Axes(xlCategory).TickLabels.Font.Size = 8
    .SeriesCollection(1).Name = "20" & NameDatenreihe1
    .SeriesCollection(1).XValues = Array(XAchse1, XAchse2, XAchse3, XAchse4, XAchse5, XAchse6, XAchse7, XAchse8, XAchse9, XAchse10, XAchse11, XAchse12)
    .SeriesCollection.NewSeries                         'Hinzufügen der zusätzlichen Datenreihen
    .SeriesCollection(2).Values = rng2
    .SeriesCollection(2).Name = "20" & NameDatenreihe2
    .SeriesCollection.NewSeries
    .SeriesCollection(3).Values = rng1
    .SeriesCollection(3).Name = "20" & NameDatenreihe3
End With
 
Set rng1 = rng1.Offset(36)       'verschiebe Block um 36 Zeilen nach unten
Set rng2 = rng2.Offset(36)
Set rng3 = rng3.Offset(36)
 
Next i

Wenn ich nun so:

?
1
2
3
4
5
6
7
8
9
10
11
[...]
 
Set rng4 = Worksheets("Tabelle3").Range("A1:L1")
 
With cht.Chart
.SeriesCollection.NewSeries
.SeriesCollection(4).Values = rng4
.SericesCollection(4).Name = "20" & NameDatenreihe4
End With
 
[...]

versuche ein neue Datenreihe zu ergänzen kommt der Laufzeitfehler 424: "Objekt erforderlich".

Kennt sich jemand aus und weiß wie ich die Diagramme benennen kann, sodass ich per Schleife die neue Datenreihe einfügen kann?

Tobi

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Nachträglich Datenreihe in Diagramm einfügen
 05.12.2016 11:34:26 Tobi
Solved
05.12.2016 12:00:06 Gast77430
NotSolved
05.12.2016 13:35:04 Tobi
NotSolved
05.12.2016 14:20:46 Tobi
NotSolved
05.12.2016 19:18:45 Gast66164
NotSolved