Sub Diagramme()
Dim ws As Worksheet, WsDiagramm As Worksheet, WsExists As Boolean
Dim Messwerte As Integer, AktChart As Chart, Top As Integer
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Diagramme" Then
Set WsDiagramm = ws
WsExists = True
End If
Next ws
If WsExists = False Then
Set WsDiagramm = Sheets.Add(after:=Sheets("Werte bereinigt"))
WsDiagramm.Name = "Diagramme"
End If
For Messwerte = 1 To 3
Set AktChart = WsDiagramm.Shapes.AddChart2(227, xlLine, 1, Top, , 200).Chart
With AktChart
.HasTitle = True
.ChartTitle.Text = "Messwert & Messwerte"
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Sheets("Werte unbereinigt").Range("$A$11:$A$")
.SeriesCollection(1).Name = "Werte unbereinigt"
.SeriesCollection(1).Values = Sheets("Werte unbereinigt").Range("$C$11:$C$").Offset( _
0, Messwerte - 1)
.SeriesCollection.NewSeries
.SeriesCollection(2).Name = "Werte bereinigt"
.SeriesCollection(2).Values = Sheets("Werte bereinigt").Range("$C$11:$C$").Offset(0, _
Messwerte - 1)
End With
Top = Top + 210
Next Messwerte
End Sub
Allerdings bekomme ich einen Laufzeitfehler.
Hat jemand einen Lösungsansatz?
Mfg Alex