Sub Makro1()
'
' Makro1 Makro
' Makro am 09.07.2004 von X aufgezeichnet
'

'
    Range("D10:E29").Select
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("D10:E29"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).XValues = "=Tabelle1!R10C4:R29C4"
    ActiveChart.SeriesCollection(2).Values = "=Tabelle1!R10C6:R29C6"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    For i = 1 To 20 Step 3
    With Worksheets(1).ChartObjects(1).Chart. _
    SeriesCollection(1).Points(i)
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlAutomatic
        .MarkerSize = 5
        .Shadow = False
    End With
        Next i
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    
    For i = 1 To 20 Step 3
    With Worksheets(1).ChartObjects(1).Chart. _
    SeriesCollection(2).Points(i)
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlAutomatic
        .MarkerSize = 5
        .Shadow = False
    End With
        Next i
    ActiveWindow.Visible = False
    Windows("Mappe1").Activate
    Range("I47").Select
End Sub