[flinx]

Könntest auch mit Makro lösen:
Voraussetzung: Es existieren nur Arbeitsblätter mit den geforderten Daten (keine anderen!) und sie sind sortiert. Ließe sich auch zur direkten Diagrammerzeugung umbauen.

Bsp. fürs Listeerstellen:

Sub Makro1()
    ' Neues Tabellenblatt erzeugen und als letztes hinzufügen
    ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
    ' Überschriften
    Worksheets(Worksheets.Count).Cells(1, 1).Value = "A2-Spalte"
    Worksheets(Worksheets.Count).Cells(1, 2).Value = "E5-Spalte"
    Worksheets(Worksheets.Count).Cells(1, 3).Value = "E12-Spalte"
    Worksheets(Worksheets.Count).Cells(1, 4).Value = "E19-Spalte"
    
    ' Werte eintragen
    For i = 1 To Worksheets.Count - 1
    Worksheets(Worksheets.Count).Cells(i + 1, 1).Value = Worksheets(i).Range("A2").Value
    Worksheets(Worksheets.Count).Cells(i + 1, 2).Value = Worksheets(i).Range("E5").Value
    Worksheets(Worksheets.Count).Cells(i + 1, 3).Value = Worksheets(i).Range("E12").Value
    Worksheets(Worksheets.Count).Cells(i + 1, 4).Value = Worksheets(i).Range("E19").Value
    Next

End Sub