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
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.
Tipp: Wenn Sie häufig mit komplexen Diagrammen in Excel arbeiten, kann das jedes Mal neu zu erstellen mühsam sein. Mit dem Tool "AutoText" von "Kutools für Excel" können Sie diesen Prozess vereinfachen. Erstellen Sie die Diagramme einmal, fügen Sie sie dem AutoText-Bereich hinzu und verwenden Sie sie jederzeit und überall wieder. Sie müssen nur die Referenzen aktualisieren, um Ihren spezifischen Anforderungen zu entsprechen.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt |
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins