Sub DiagrammeAlleWorksheets()
Dim r_cnt As Integer
Dim c_cnt As Integer
Dim Datenzeile1 As Integer
Dim XSpalte As Integer
Dim ws As Worksheet
Dim wsName As String
Dim wsAnzahl As String
Dim NoWS As Integer
Dim i As Integer
Dim lngReihe As Long
Datenzeile1 = 2
XSpalte = 1
c_cnt = 2
wsAnzahl = ActiveWorkbook.Worksheets.Count
i = 1
For NoWS = 1 To wsAnzahl - 1
Sheets(NoWS).Select
r_cnt = Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Diagramm").Shapes.AddChart.Chart
.ChartType = xlXYScatterSmoothNoMarkers
If .SeriesCollection.Count > 0 Then
For lngReihe = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(lngReihe).Delete
Next lngReihe
End If
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Name = Sheets(NoWS).Name
.XValues = "=" & Sheets(NoWS).Name & "!" & Range(Cells(Datenzeile1, XSpalte), Cells(r_cnt, XSpalte)).Address
.Values = "=" & Sheets(NoWS).Name & "!" & Range(Cells(Datenzeile1, c_cnt), Cells(r_cnt, c_cnt)).Address
End With
End With
i = i + 1
Next
MsgBox i
End Sub