Private Sub GrafikZeigen() Dim wshTmp As Worksheet Dim chaDat As ChartObject Dim rngDat As Range Set wshTmp = Worksheets("Maschinenwartung") DrawingObjects.Delete With wshTmp .Activate Set rngDat = .Range("D2:E363") End With Set chaDat = wshTmp.ChartObjects.Add(10, 70, 350, 250) With chaDat.Chart .ChartType = xlXYScatterLinesNoMarkers .SetSourceData Source:=rngDat, PlotBy:=xlColumns .Location where:=xlLocationAsObject, Name:=wshTmp.Name .HasTitle = True .ChartTitle.Text = "Warteschlange" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "t [Sek.]" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = _ "Anzahl Maschinen" .HasLegend = False End With Set rngDat = Nothing Set chaDat = Nothing Set wshTmp = Nothing End Sub