Sub Makro6()
'
' Makro6 Makro
' Makro am 19.08.2007 von Holger Großeloh aufgezeichnet
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.SetSourceData Source:=Sheets("Diagramm").Range("D8")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Diagramm!R3C4:R6C4"
    ActiveChart.SeriesCollection(1).Values = "=Diagramm!R3C5:R6C5"
    ActiveChart.SeriesCollection(1).Name = "=""Dreieck"""
    ActiveChart.SeriesCollection(2).XValues = "=Diagramm!R2C4"
    ActiveChart.SeriesCollection(2).Values = "=Diagramm!R2C5"
    ActiveChart.SeriesCollection(2).Name = "=""Punkt"""
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Diagramm"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub