Bitte, kann mir jemand mal helfen?!
Ich bekomme immer wieder einen Fehler gemeldet.
In Zeile 8 Laufzeitfehler "1004".
Ich habe alle möglichen Varianten ausprobiert, aber immer hängt sich der Code auf.
Die Datei habe ich hochgeladen: https://www.herber.de/bbs/user/40331.xls
Sub DiagrammErstellen()
Dim Dia As ChartObject
Dim i As Currency
Set Dia = Sheets("DRG Info").ChartObjects.Add(2, 408, 605, 400)
Dia.Name = "DRG:"
i = Sheets("Schleife").Range("B3").End(xlDown).Row
Sheets("Schleife").Range("A3:B" & i).Copy
Sheets("DRG Info").ChartObjects("DRG:").Activate !HIER
ActiveChart.SeriesCollection.Paste _
Rowcol:=xlColumns, SeriesLabels:=False, _
CategoryLabels:=True, Replace:=True, NewSeries:=True
With ActiveChart
.ChartType = xlLineMarkers
.HasLegend = False
.HasTitle = True
.ChartTitle.Characters.Text = "DRG:" & " " & Sheets("Berechnung").Range("A5")
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Tage"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Euro"
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
Ob der weitere Code stimmt, konnte ich noch nicht überprüfen, weil ich ja über Zeile 8 nicht hinauskomme.
Natürlich wäre es sehr freundlich, wenn Du/Ihr mal ausprobieren könntet, ob sich tatsächlich ein Diagramm aufbaut.
Vielen Dank und einen schönen Abend noch!
Wolfgang
End With
End Sub