Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ActiveChart.SeriesCollection.NewSeries -> neue Ser

ActiveChart.SeriesCollection.NewSeries -> neue Ser
28.06.2018 12:32:14
Alina
Hi liebe Wissende,
ich habe es hinbekommen, eine Tabelle zu programmieren
Die bezieht sich auf Werte aus drei Zeilen; klappt soweit
Jetzt sollen Werte aus einer weiteren Zeile auch noch beachtet werden (Zeile 209)
Ich dachte das macht man mit ActiveChart.SeriesCollection.NewSeries
Aber wenn ich hier dann ActiveChart.FullSeriesCollection(4). anspreche, heist es objektfehler....
Seht ihr den Fehler:
ProjName = ActiveSheet.Name
'Klappt:
.Range(.Cells(205, 2), .Cells(207, 63)).Select
.Range(.Cells(205, 2), .Cells(207, 63)).Activate
.Shapes.AddChart2(276, xlAreaStacked, .Range("B81").Left + 9.75, .Range("B81").Top + 4.5, .Cells(81, 63).Left - .Cells(81, 2).Left + 2.5, .Range("B106").Top - .Range("B81").Top + 5.5).Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MaximumScale = 1
ActiveWindow.DisplayGridlines = False
ActiveChart.SetElement (msoElementLegendNone)
ActiveChart.SetElement (msoElementChartTitleNone)
ActiveChart.SetElement (msoElementPrimaryCategoryAxisNone)
ActiveSheet.Shapes("Diagramm 4").Fill.Visible = msoFalse
Application.CommandBars("Format Object").Visible = False
ActiveSheet.Shapes("Diagramm 4").Line.Visible = msoFalse
ActiveSheet.ChartObjects("Diagramm 4").Activate
ActiveChart.FullSeriesCollection(1).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0.75
.Solid
End With
ActiveChart.FullSeriesCollection(2).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 192, 0)
.Transparency = 0.75
.Solid
End With
ActiveChart.FullSeriesCollection(3).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0.75
.Solid
End With
'HIER IST DANN DER FEHLER
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(4).Name = "='" & ProjName & "'!$B$209'" 'hier noch Änderung
ActiveChart.FullSeriesCollection(4).ChartType = xlLineMarkersStacked
ActiveChart.FullSeriesCollection(4).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.Weight = 1
End With
With Selection.Format.Fill
.Visible = msoFalse
End With
With Selection
.MarkerStyle = 8
.MarkerSize = 6
.ApplyDataLabels
End With
ActiveChart.FullSeriesCollection(4).DataLabels.Select
With Selection
.Position = xlLabelPositionAbove
.ShowRange = True
.ShowValue = False
.Format.TextFrame2.TextRange. _
InsertChartField msoChartFieldRange, "='" & ProjName & "'!$C$208:$BZ$208", 0
End With
End With

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Der Fehler liegt darin, dass...
01.07.2018 10:28:43
Beverly
Hi,
...sich in der betreffenden Codezeile hinter der 209 noch ein überflüssiger ' befindet.
Noch ein Hinweis: in VBA kann in 99% aller Fälle auf Select und Activate verzichtet werden
Dim chrDia As Chart
Dim rngBereich As Range
ProjName = ActiveSheet.Name
With Worksheets(ProjName)
Set rngBereich = .Range(.Cells(205, 2), .Cells(207, 63))
Set chrDia = .Shapes.AddChart2(276, xlAreaStacked, .Range("B81").Left + 9.75, _
.Range("B81").Top + 4.5, .Cells(81, 63).Left - .Cells(81, 2).Left + 2.5, _
.Range("B106").Top - .Range("B81").Top + 5.5).Chart
With chrDia
.SetSourceData Source:=rngBereich, PlotBy:=xlRows
.Axes(xlValue).MaximumScale = 1
.SetElement (msoElementLegendNone)
.SetElement (msoElementChartTitleNone)
.SetElement (msoElementPrimaryCategoryAxisNone)
.ChartArea.Fill.Visible = msoFalse
.ChartArea.Format.Line.Visible = msoFalse
With .FullSeriesCollection(1).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0.75
.Solid
End With
With .FullSeriesCollection(2).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 192, 0)
.Transparency = 0.75
.Solid
End With
With .FullSeriesCollection(3).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0.75
.Solid
End With
'HIER WAR DANN DER FEHLER
With .SeriesCollection.NewSeries
.Name = "='" & ProjName & "'!$B$209" '


Anzeige
AW: Der Fehler liegt darin, dass...
02.07.2018 08:41:58
Alina
Guten Morgen!
Das hätte ich ja im leben nicht gesehen!
Danke!!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige