ich folgendes problem und zwar habe ich nach langem tüfteln und suchen mal versucht ein diagramm zu erstellen, mit 4 Einträgen, davon sind jeweils zwei Linien und zwei Balken, alles in einem Diagramm.
Nun bekomme ich allerdings eine Fehlermeldung "Laufzeitfehler '1004' Anwendungs- objektdefinierter fehler".
und zwar bei dieser Zeile: Tabelle1.Shapes.AddChart XlChartType.xlLineMarkers, 500, 50, 1400, 430
Was kann ich da machen? und wie könnte ich dieses Wirrwar optimierien?
Hier der ganze Code:
Sub AlleDiagrammelöschen()
On Error Resume Next
ActiveSheet.ChartObjects.Delete
End Sub
Sub Diagramm()
Tabelle1.Select
AlleDiagrammelöschen
Union( _
Range("I23:AB23"), _
Range("I26:AA26"), _
Range("I11:AB11"), _
Range("I17:AB17")).Select
Tabelle1.Shapes.AddChart XlChartType.xlLineMarkers, 500, 50, 1400, 430
'Änderung der Legende und der Linien
With ActiveSheet.ChartObjects(1).Chart
.SeriesCollection(1).Name = "=""AGW Vorwoche"""
.SeriesCollection(1).Border.Weight = xlThick
.SeriesCollection(1).Interior.Color = RGB(86, 52, 111)
.SeriesCollection(1).XValues = "=Tabelle1!I5:AB5"
.SeriesCollection(2).Name = "=""AGW"""
.SeriesCollection(2).Border.Weight = xlThick
.SeriesCollection(3).Name = "=""AGN"""
.SeriesCollection(3).ChartType = xlColumnClustered
.SeriesCollection(4).Name = "=""AGP"""
.SeriesCollection(4).ChartType = xlColumnClustered
.SeriesCollection(1).ChartType = xlDash
End With
'Positionierung des Diagramms
ActiveSheet.ChartObjects(1).Top = Range("h30").Top
ActiveSheet.ChartObjects(1).Left = Range("h30").Left
End Sub
Danke für die Hilfe und Grüße,
Franky