Sub GraphErstellen()
Dim b As String, c As String, a As String, myChart As Chart, i As Long
c = InputBox("Bitte Geben Sie den Tabellennamen an")
Set myChart = Charts.Add
myChart.ChartType = xlXYScatterSmooth
For i = myChart.SeriesCollection.Count To 1 Step -1
myChart.SeriesCollection(i).Delete
Next
myChart.SeriesCollection.NewSeries
myChart.SeriesCollection(1).XValues = "='" & c & "'!A1:A11"
myChart.SeriesCollection(1).Values = "='" & c & "'!B1:B11"
myChart.SeriesCollection(1).Name = a
myChart.HasTitle = True
myChart.ChartTitle.Characters.Text = b
End Sub