Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Legende Bearbeiten mit VBA

Legende Bearbeiten mit VBA
Ganna
Hallo,
wie kann ich in der Legende, der Datenreihe 1, 2... enen Titel zuweisen? So geht es wohl nicht.
.LegendEntries(1).Text = "Zeit(a)"
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Legendeneintrag einer Datenreihe per VBA ändern
16.11.2009 13:51:20
NoNet
Hallo Ganna,
der Legendeneintrag ist an die Datenreihe gebunden, daher folgedermassen modifizierbar :
Activesheet.Chartobjects(1).Chart.SeriesCollection(1).Name="Zeit(a)"
Gruß, NoNet
AW: Legendeneintrag einer Datenreihe per VBA ändern
16.11.2009 14:14:01
Ganna
Hallo, vielen Dank.Letztendlich hat so funktioniert:
.HasLegend = True
.SeriesCollection(1).Name = "Konzentration cs2 (mikro_g/l)"
.SeriesCollection(2).Name = "Fracht Es2 (g/a)"
Gruß
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Legende in Excel mit VBA bearbeiten


Schritt-für-Schritt-Anleitung

Um die Legende eines Excel-Diagramms mit VBA zu bearbeiten, kannst Du folgende Schritte ausführen:

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul einfügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)" und wähle "Einfügen" > "Modul".

  3. Code eingeben: Verwende den folgenden VBA-Code, um die Legende zu ändern:

    Sub LegendeBearbeiten()
       Dim chartObj As ChartObject
       Set chartObj = ActiveSheet.ChartObjects(1) ' Erstes Diagramm auf dem aktiven Arbeitsblatt
    
       With chartObj.Chart
           .HasLegend = True
           .SeriesCollection(1).Name = "Konzentration cs2 (mikro_g/l)"
           .SeriesCollection(2).Name = "Fracht Es2 (g/a)"
       End With
    End Sub
  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Legende des Diagramms zu bearbeiten.


Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 1004: Methode 'Chart' des Objekts 'ChartObject' fehlgeschlagen.“

    • Lösung: Stelle sicher, dass das angegebene Diagramm tatsächlich existiert und auf dem aktiven Arbeitsblatt sichtbar ist.
  • Fehler: „Index außerhalb des Bereichs.“

    • Lösung: Prüfe, ob Du auf die richtige Datenreihe zugreifst. Überprüfe die Anzahl der Serien in Deinem Diagramm.

Alternative Methoden

Falls Du VBA nicht verwenden möchtest, kannst Du die Legende auch manuell bearbeiten:

  1. Klicke auf die Legende im Diagramm.
  2. Wähle den Legendeneintrag aus, den Du ändern möchtest.
  3. Klicke mit der rechten Maustaste und wähle „Datenreihe umbenennen“.
  4. Gib den gewünschten Namen ein und bestätige.

Zusätzlich kannst Du die Legende formatieren, um den Zeilenabstand zu verringern oder andere Anpassungen vorzunehmen.


Praktische Beispiele

Hier sind einige Beispiele, wie Du die Legende in einem Excel-Diagramm bearbeiten kannst:

  1. Legende umbenennen:

    .SeriesCollection(1).Name = "Neuer Name"
  2. Legende beschriften:

    .Legend.Text = "Meine Legende"
  3. Legende in einem Pivot-Chart umbenennen:

    ActiveSheet.PivotTables("PivotTable1").PivotFields("Feldname").Caption = "Neuer Titel"

Tipps für Profis

  • Nutze die With-Anweisung, um den Code lesbarer zu gestalten, insbesondere wenn Du mehrere Eigenschaften eines Objekts ändern möchtest.
  • Experimentiere mit verschiedenen Diagrammtypen, um zu sehen, wie sich die Legende anpasst.
  • Überprüfe regelmäßig die Dokumentation für VBA, um neue Funktionen und Methoden zu entdecken, die Dir helfen können, Deine Diagramme weiter zu optimieren.

FAQ: Häufige Fragen

1. Wie kann ich die Schriftgröße der Legende ändern? Du kannst die Schriftgröße der Legende über die Eigenschaften des Legendeneintrags anpassen:

.Legend.Font.Size = 12

2. Kann ich die Legende auch in einem Diagramm ändern, das nicht aktiv ist? Ja, Du kannst auf ein bestimmtes Diagramm zugreifen, indem Du den Index oder den Namen des Diagramms angibst:

Set chartObj = Sheets("Sheet1").ChartObjects("Diagramm1")

3. Wie ändere ich den Zeilenabstand in der Legende? Der Zeilenabstand kann nicht direkt geändert werden, aber Du kannst die Schriftgröße und den Inhalt so anpassen, dass er besser aussieht.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige