Wie extrahiert man Daten aus einem Diagramm oder Graphen in Excel?

Diagramme in Excel werden häufig verwendet, um Daten und Trends effektiver zu visualisieren. Es kann jedoch Situationen geben, in denen Sie nur ein Diagramm ohne Zugriff auf die Originaldaten haben, wie im folgenden Beispiel gezeigt. In solchen Fällen kann das Extrahieren der Daten aus dem Diagramm entscheidend sein. Dieses Tutorial bietet eine Schritt-für-Schritt-Anleitung zum Abrufen von Daten aus einem Diagramm oder Graphen in Excel mit VBA-Code.

Daten aus Diagramm mit VBA extrahieren

  Daten aus Diagramm mit VBA extrahieren

1. Sie müssen ein neues Arbeitsblatt erstellen und es in "ChartData" umbenennen. Siehe Screenshot:

2. Wählen Sie das Diagramm aus, aus dem Sie Daten extrahieren möchten. Drücken Sie gleichzeitig die Tasten "Alt" + "F11", um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

3. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie den folgenden VBA-Code in das "Modul"-Fenster ein.

Sub GetChartValues()
    'Updateby20220510
    Dim xNum As Integer
    Dim xSeries As Object
    On Error Resume Next
    xCount = 2
    xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
    Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
    With Application.Worksheets("ChartData")
        .Range(.Cells(2, 1), _
        .Cells(xNum + 1, 1)) = _
        Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With
    For Each xSeries In Application.ActiveChart.SeriesCollection
        Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
        With Application.Worksheets("ChartData")
            .Range(.Cells(2, xCount), _
            .Cells(xNum + 1, xCount)) = _
            Application.WorksheetFunction.Transpose(xSeries.Values)
        End With
        xCount = xCount + 1
    Next
End Sub

4. Klicken Sie dann auf die Schaltfläche "Ausführen", um den VBA-Code auszuführen. Siehe Screenshot:

Anschließend können Sie die extrahierten Daten im Arbeitsblatt "ChartData" sehen.

Tipp:

1. Sie können die Zellen nach Bedarf formatieren.

2. Standardmäßig werden die Daten des ausgewählten Diagramms ab der ersten Zelle des Arbeitsblatts "ChartData" extrahiert.