Wie extrahiert man Daten aus einem Diagramm oder Graphen in Excel?
Diagramme in Excel werden häufig eingesetzt, um Daten und Trends anschaulich und wirkungsvoll darzustellen. Manchmal liegt Ihnen jedoch nur das Diagramm selbst vor – ohne Zugriff auf die zugrundeliegenden Originaldaten, wie im folgenden Beispiel gezeigt. In solchen Fällen ist die Extraktion der Daten aus dem Diagramm unerlässlich. Dieses Tutorial liefert eine Schritt-für-Schritt-Anleitung, wie Sie mithilfe von VBA-Code Daten aus einem Diagramm oder Graphen in Excel erfolgreich zurückgewinnen.
Daten aus Diagramm mit VBA extrahieren
1. Erstellen Sie ein neues Arbeitsblatt und benennen Sie es in „ChartData“ um. Siehe Screenshot:
2. Wählen Sie das Diagramm aus, aus dem Sie Daten extrahieren möchten, und öffnen Sie anschließend mit der Tastenkombination „Alt“ + „F11“ das Fenster „Microsoft Visual Basic for Applications“.
3. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden VBA-Code anschließend in das Modulfenster 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 anschließend auf die Schaltfläche „Ausführen“, um den VBA-Code zu starten. Siehe Screenshot:
Anschließend finden Sie die extrahierten Daten im Arbeitsblatt „ChartData“.
Tipp:
1. Sie können die Zellen ganz nach Ihren Wünschen formatieren.
2. Standardmäßig werden die Daten des ausgewählten Diagramms ab der ersten Zelle des Arbeitsblatts „ChartData“ eingefügt.
Tipp: Wenn Sie häufig mit komplexen Diagrammen in Excel arbeiten, kann es zeitaufwendig sein, sie jedes Mal neu zu erstellen. Mit dem „AutoText“-Tool von „Kutools für Excel“ vereinfachen Sie diesen Prozess: Erstellen Sie Ihre Diagramme einmalig, fügen Sie sie dem AutoText-Bereich hinzu und nutzen Sie sie jederzeit und überall erneut – Sie passen lediglich die Bezüge an Ihre spezifischen Anforderungen an.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen |
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins