Der Inhalt der Spalte: "$I:$I" "$L:$L" "$Q:$Q" "$R:$R"
Und der Reihenname soll jeweils sein: I2, L2, Q2, R2
So sieht das dann aus.
Das er alle Sheets macht geht schon gut, nur leider stimmt das mit den Daten nicht.
Sub AlleDiagramme()
Dim i As Long
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
If sh.Name Like "ims_*" Then
Columns("I:I").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("ims_snapshots_" & Right(ActiveSheet.Name, _
3) & "!$I:$I")
Columns("L:L").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("ims_snapshots_" & Right(ActiveSheet.Name, _
3) & "!$L:$L")
Columns("Q:Q").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("ims_snapshots_" & Right(ActiveSheet.Name, _
3) & "!$Q:$Q")
Columns("R:R").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("ims_snapshots_" & Right(ActiveSheet.Name, _
3) & "!$R:$R")
End If
Next
Sheets("Auswahl").Select
End Sub
Leider macht er dann sowas: Da stimmt das Sheet, aber Reihenname und Werte sind vertauscht und bei Namen nimmte er 5001 statt 2.