Excel-Datenreihe umbenennen und korrekt zuweisen
Schritt-für-Schritt-Anleitung
-
Öffne dein Excel-Dokument mit dem Diagramm, dessen Datenreihen du umbenennen möchtest.
-
Öffne den VBA-Editor: Drücke ALT + F11.
-
Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (dein Dokument)“ > Einfügen > Modul.
-
Kopiere den folgenden Code in das Modul:
Sub DatenreiheUmbenennen()
Dim objChart As ChartObject
Dim iReihe As Integer
Set objChart = ActiveSheet.ChartObjects(1) ' Wähle das erste Diagramm aus
With objChart.Chart
For iReihe = 1 To .SeriesCollection.Count
.SeriesCollection(iReihe).Name = "=""" & Sheets("Auswertung").Range("G" & iReihe + 2) & """"
Next iReihe
End With
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus: Drücke ALT + F8, wähle DatenreiheUmbenennen und klicke auf Ausführen.
Damit werden die Namen der Datenreihen in deinem Diagramm entsprechend den Werten in der Spalte G der Tabelle „Auswertung“ umbenannt.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode, um die Namen der Datenreihen in Excel zu ändern, ist die Nutzung des Makrorekorders. Du kannst den Makrorekorder aktivieren und die Umbenennung manuell durchführen. Der Recorder erstellt den VBA-Code für dich.
- Aktiviere den Makrorekorder: Gehe zu „Entwicklertools“ > „Makro aufzeichnen“.
- Führe die Umbenennung manuell durch: Wähle die Datenreihe im Diagramm aus und ändere den Namen über die Formelleiste.
- Stoppe die Aufzeichnung: Gehe zurück zu „Entwicklertools“ > „Aufzeichnung beenden“.
- Bearbeite den aufgezeichneten Code, falls nötig.
Praktische Beispiele
Hier ist ein einfaches Beispiel, um die Datenreihe 1 in einem Diagramm umzubenennen:
Sub BeispielUmbenennen()
ActiveChart.SeriesCollection(1).Name = "Umsatz 2023"
End Sub
In diesem Beispiel wird die erste Datenreihe eines aktiven Diagramms auf „Umsatz 2023“ gesetzt.
Tipps für Profis
-
Nutze die FullSeriesCollection, um auf alle Datenreihen zuzugreifen, insbesondere wenn du mit vielen Datenreihen arbeitest.
-
Wenn du eine dynamische Lösung benötigst, die sich an die Anzahl der ausgefüllten Zeilen anpasst, kannst du den Endwert mit Range("G65536").End(xlUp).Row ermitteln.
-
Überlege, die Diagrammtitel ebenfalls dynamisch zu gestalten, indem du die Werte aus einer Zelle als Titel verwendest.
FAQ: Häufige Fragen
1. Wie kann ich eine bestimmte Datenreihe umbenennen?
Um eine bestimmte Datenreihe umzubenennen, verwende den Code ActiveChart.SeriesCollection(1).Name = "Neuer Name".
2. Was mache ich, wenn der Makrorekorder nicht den gewünschten Code liefert?
In diesem Fall solltest du den VBA-Code manuell anpassen oder direkt mit dem VBA-Editor arbeiten, um die gewünschten Anpassungen vorzunehmen.