Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm-Linienfarbe stimmt nicht mit Legende

Forumthread: Diagramm-Linienfarbe stimmt nicht mit Legende

Diagramm-Linienfarbe stimmt nicht mit Legende
26.01.2017 12:24:13
Oliver
Liebe Excel-VBA Experten,
ich habe folgendes Problem. Nach mehrmaligen aufrufen der Subroutine, ändert sich die Zuordnung der Linienfarbe im Diagramm zur Linienfarbe der Legende und ist somit fehlerhaft. Ich habe schon einiges probiert und bin nun ratlos.
Hier der Code:
Sub Diagram0(chTitle As String)
Dim Dia As ChartObject, rPlotData As Range, rData1 As Range, rData2 As Range, rData3 As Range, _
rData4 As Range
Dim Data1col As Integer, Data2col As Integer, Data3col As Integer, Data4col As Integer
Data1col = Sheets("Logfile1").CBoxData1.ListIndex + 3
Data2col = Sheets("Logfile1").CBoxData2.ListIndex + 3
Data3col = Sheets("Logfile1").CBoxData3.ListIndex + 3
Data4col = Sheets("Logfile1").CBoxData4.ListIndex + 3
On Error Resume Next
ActiveSheet.ChartObjects.Delete
Set Dia = ActiveSheet.ChartObjects.Add(180, 20, 1000, 450)
Dia.Name = "LogDia0"
Set rData1 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data1col), Cells(pRowEndLog1, Data1col)) _
Set rData2 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data2col), Cells(pRowEndLog1, Data2col)) _
Set rData3 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data3col), Cells(pRowEndLog1, Data3col)) _
Set rData4 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data4col), Cells(pRowEndLog1, Data4col)) _
Set rPlotData = Union(rData1, rData2, rData3, rData4)
ActiveSheet.ChartObjects("LogDia0").Activate
With ActiveChart
.ChartType = xlLine
.HasLegend = True
.HasTitle = True
.chartTitle.Text = chTitle
.SeriesCollection.NewSeries
.SetSourceData _
Source:=rPlotData
.SeriesCollection(1).XValues = Range(Cells(Bezuege.rTime.Row, Bezuege.rTime.Column), Cells( _
pRowEndLog1, Bezuege.rTime.Column))
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScale = 400
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Druck [bar] / Temperatur [°C]"
.SeriesCollection(1).Name = Cells(Bezuege.rFirstEntry.Row, Data1col).Value
.SeriesCollection(1).Select
Selection.Border.ColorIndex = 1
.Legend.Select
.Legend.LegendEntries(1).LegendKey.Select
Selection.Border.ColorIndex = 1
.SeriesCollection(2).Name = Cells(Bezuege.rFirstEntry.Row, Data2col).Value
.SeriesCollection(2).Select
Selection.Border.ColorIndex = 3
.Legend.Select
.Legend.LegendEntries(2).LegendKey.Select
Selection.Border.ColorIndex = 3
.SeriesCollection(3).Name = Cells(Bezuege.rFirstEntry.Row, Data3col).Value
.SeriesCollection(3).Select
Selection.Border.ColorIndex = 4
.Legend.Select
.Legend.LegendEntries(3).LegendKey.Select
Selection.Border.ColorIndex = 4
.SeriesCollection(4).Name = Cells(Bezuege.rFirstEntry.Row, Data4col).Value
.SeriesCollection(4).Select
Selection.Border.ColorIndex = 5
.Legend.Select
.Legend.LegendEntries(4).LegendKey.Select
Selection.Border.ColorIndex = 5
End With
Range("A1").Select
End Sub

Danke im Voraus
lg
Oliver
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm-Linienfarbe stimmt nicht mit Legende
26.01.2017 15:42:39
Oliver
Hatte schon jemand Gelegenheit mal kurz darüber zuschauen?
Ohne Beispielmappe keine Chance (o.w.T)
26.01.2017 19:47:23
Beverly

AW: Ohne Beispielmappe keine Chance (o.w.T)
27.01.2017 06:50:00
Oliver
Guten Morgen!
Hier nun der Code, als auch die Testdaten:
https://www.herber.de/bbs/user/110924.xlsm
https://www.herber.de/bbs/user/110925.zip
Nach dem Einlesen der Daten, stimmen die Diagrammlinienfarben noch mit den Legendenfarben überein. Werden andere Daten über die Comboboxen ausgewählt, kann es sein, dass die Zuordnung nicht mehr stimmt.
Danke
lg
Oliver
Anzeige
Das Problem...
27.01.2017 09:50:32
Beverly
Hi Oliver,
...liegt m.E. darin begründet, dass du - soweit ich feststellen konnt - mal 3 und mal 4 Datenreihen im Diagramm hast. Allerdings konnte ich leider nicht bis ins Detail testen, weil Excel mit deiner Mappe ständig abstürtzt.
Falls meine Feststellung mit der unterschiedlichen Datenreihenanzahl stimmt, würde ich vom Prinzip her so vorgehen, dass ich auch nur 3 Datenreihen ins Diagramm aufneheme, falls nur 3 dargestellt werden sollen, bzw. nur die 4. färben wenn auch 4 vorhanden sind (siehe Code unten die If-Abfrage).
Ich würde auch die Datenreihen selbst und nicht die Legendeneinträge färben, Select und Activate muss man nicht verwenden und beim Löschen der Diagramme kann man auf On Error verzichten, indem man vorher prüft, ob Diagramme vorhanden sind:
Sub Diagram0(chTitle As String)
Dim Dia As ChartObject, rPlotData As Range, rData1 As Range, rData2 As Range, rData3 As Range, _
rData4 As Range
Dim Data1col As Integer, Data2col As Integer, Data3col As Integer, Data4col As Integer
Data1col = Sheets("Logfile1").CBoxData1.ListIndex + 3
Data2col = Sheets("Logfile1").CBoxData2.ListIndex + 3
Data3col = Sheets("Logfile1").CBoxData3.ListIndex + 3
Data4col = Sheets("Logfile1").CBoxData4.ListIndex + 3
If ActiveSheet.ChartObjects.Count > 0 Then ActiveSheet.ChartObjects.Delete
Set Dia = ActiveSheet.ChartObjects.Add(180, 20, 1000, 450)
Dia.Name = "LogDia0"
Set rData1 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data1col), Cells(pRowEndLog1, Data1col)) _
Set rData2 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data2col), Cells(pRowEndLog1, Data2col)) _
Set rData3 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data3col), Cells(pRowEndLog1, Data3col)) _
Set rData4 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data4col), Cells(pRowEndLog1, Data4col)) _
Set rPlotData = Union(rData1, rData2, rData3, rData4)
With ActiveSheet.ChartObjects("LogDia0").Chart
.ChartType = xlLine
.HasLegend = True
.HasTitle = True
.chartTitle.Text = chTitle
.SeriesCollection.NewSeries
.SetSourceData _
Source:=rPlotData
.SeriesCollection(1).XValues = Range(Cells(Bezuege.rTime.Row, Bezuege.rTime.Column), Cells( _
pRowEndLog1, Bezuege.rTime.Column))
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScale = 400
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Druck [bar] / Temperatur [°C]"
.SeriesCollection(1).Name = Cells(Bezuege.rFirstEntry.Row, Data1col).Value
.SeriesCollection(1).Border.ColorIndex = 1
.SeriesCollection(2).Name = Cells(Bezuege.rFirstEntry.Row, Data2col).Value
.SeriesCollection(2).Border.ColorIndex = 3
.SeriesCollection(3).Name = Cells(Bezuege.rFirstEntry.Row, Data3col).Value
.SeriesCollection(3).Border.ColorIndex = 4
' nur wenn 4 Dateneriehn vorhanden sind
If .SeriesCollection.Count = 4 Then
.SeriesCollection(4).Name = Cells(Bezuege.rFirstEntry.Row, Data4col).Value
.SeriesCollection(4).Border.ColorIndex = 5
End If
End With
End Sub

Anzeige
AW: Das Problem...
27.01.2017 10:08:13
Oliver
Hi Karin,
danke für das schnelle Feedback. Über eine Messagebox: MsgBox .SeriesCollection.Count habe ich die Anzahl überprüft. Warum sollten manchmal nur drei Reihen dargestellt werden? (Autoscale auf der y-Achse einstellen)
Die Legendeneinträge habe ich vorerst auch nicht eingefärbt, das war quasi meine letztee Idee!
Also ich werde nicht schlau, was da passiert....
lg
Oliver
Anzeige
AW: Das Problem...
27.01.2017 10:27:24
Beverly
Hi Oliver,
ich habe mal in der oberen ComboBox den 3. Eintrag ausgewählt - dann sind nur noch 3 Datenreihen im Diagramm und diese 3 Datenereihen werden mit den ersten 3 Farben Schwarz (1), Rot (3), Grün (4) gefärbt, obwohl sie eigentlich anders gefärbt werden sollen - ich nehme an Rot (3), Grün (4) und Blau (5)?. Dass der Code auf einen Fehler läuft, wenn die 4. Datenreihe gefärbt werden soll obwohl nur 3 da sind, merkst du nicht, da du unnötigerweise On Error Resume Next verwendest.
Mir ist ja nicht bekannt, welche Datenreihen welche Farbe erhalten sollen, deshalb kann ich die auch nicht genau sage, wie du da vorgehen musst, aber eine Möglichkeit wäre, die Spaltenüberschrift in Zeile 39 in der entsprechenden Farbe zu formatieren und die Datenreihenfarbe daraus zu entnehmen.

Anzeige
AW: Das Problem...
27.01.2017 12:41:15
Oliver
Hi Karin,
ich habe deine Vorschläge alle umgesetzt. Z.b probiere mal in meinem Programm in der letzten Combobox die ,,Zylinderzone 5'' auszuwählen. Dann hat auf einmal die Zylinderzone fälschlicherweise die Farbe des ,,Massedrucks vor Sieb". Und die "Massetemp." hat auf einmal die Farbe der "Zylinderzone".
Ich versteh nicht was Excel da macht....
Danke für deine Hilfe!
lg
Oliver
Anzeige
AW: Das Problem...
27.01.2017 12:44:50
Beverly
Hi Oliver,
da müsstest du schon deine geänderte Mappe hochladen (am besten gleich mit den importierten Daten und Diagrammen direkt nach dem Import).

AW: Das Problem...
27.01.2017 13:32:37
Beverly
Hi Oliver,
die Reihenfolge der Spalten ändert sich doch in Abhängigkeit von der Auswahl in den ComboBoxen und in dieser veränderten Reihenfolge werden deine Datenreihen erstellt und auch farblich formatiert. Aufgefallen ist mir z.B., dass im korrekten Diagramm die Zuordnung des Datenreihennamen zur betreffenden Spalte, aus der die Daten stammen, übereinstimmen:
Z zu Z
AB zu AB
AC zu AC
AG zu AG
Im falsch formatierten Diagramm dagegen stimmen diese nicht überein:
H zu Z
Z zu AB
AB zu AC
AC zu H
Irgendetwas stimmt also etwas bei der Zuweisung des Wertebereichs nicht.
Hast du denn schon mal versucht, die Spaltenüberschriften mit der gewünschten Farbe zu versehen und die Farbe dann daraus auszulesen? Ich denke, das ist der einfachste Weg. Dabei solltest du aber die Datenreihen einzeln erstellen und nicht den Gesamtbereich mittels SetSourceData zuweisen.

Anzeige
AW: Das Problem...
29.01.2017 08:22:12
Oliver
Morgen Karin,
vielen, vielen Dank für deinen Input, du hast mir sehr weitergeholfen!
Ich habe den Befehl Union nicht ganz durchschaut und habe das Problem nun wie folgt gelöst:
Sub Diagram0(chTitle As String)
Dim Dia As ChartObject, rPlotData As Range, rData1 As Range, rData2 As Range, rData3 As Range, _
rData4 As Range
Dim Data1col As Integer, Data2col As Integer, Data3col As Integer, Data4col As Integer
Dim i As Integer
i = 1
Data1col = Sheets("Logfile1").CBoxData1.ListIndex + 3
Data2col = Sheets("Logfile1").CBoxData2.ListIndex + 3
Data3col = Sheets("Logfile1").CBoxData3.ListIndex + 3
Data4col = Sheets("Logfile1").CBoxData4.ListIndex + 3
If ActiveSheet.ChartObjects.Count > 0 Then ActiveSheet.ChartObjects.Delete
Set Dia = ActiveSheet.ChartObjects.Add(180, 20, 1000, 450)
Dia.Name = "LogDia0"
Set rData1 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data1col), Cells(pRowEndLog1, Data1col)) _
Set rData2 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data2col), Cells(pRowEndLog1, Data2col)) _
Set rData3 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data3col), Cells(pRowEndLog1, Data3col)) _
Set rData4 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data4col), Cells(pRowEndLog1, Data4col)) _
With ActiveSheet.ChartObjects("LogDia0").Chart
.ChartType = xlLine
.HasLegend = True
.HasTitle = True
.chartTitle.Text = chTitle
.SeriesCollection.NewSeries
.SetSourceData _
Source:=rData1
.SeriesCollection(i).XValues = Range(Cells(Bezuege.rTime.Row, Bezuege.rTime.Column), Cells( _
pRowEndLog1, Bezuege.rTime.Column))
.SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data1col).Value
.SeriesCollection(i).Border.ColorIndex = 1
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScaleIsAuto = True
'.Axes(xlValue).MinimumScaleIsAuto = True
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Druck [bar] / Temperatur [°C]"
If Sheets("Logfile1").CheckBoxData2 Then
i = i + 1
.SeriesCollection.Add Source:=rData2
.SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data2col).Value
.SeriesCollection(i).Border.ColorIndex = 3
End If
If Sheets("Logfile1").CheckBoxData3 Then
i = i + 1
.SeriesCollection.Add Source:=rData3
.SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data3col).Value
.SeriesCollection(i).Border.ColorIndex = 4
End If
If Sheets("Logfile1").CheckBoxData4 Then
i = i + 1
.SeriesCollection.Add Source:=rData4
.SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data4col).Value
.SeriesCollection(i).Border.ColorIndex = 5
End If
End With
Range("A1").Select
End Sub

GLG
Oliver
Anzeige
Freut mich dass ich helfen konnte - o.w.T
29.01.2017 09:37:12
Beverly

;

Forumthreads zu verwandten Themen

Diagrammfarben ändern abhängig vom Vorzeichen
Overmind

Hallo zusammen.
Ich möchte gerne eine Tortendiagramm erstellten mit einer variablen Anzahl von Stücken, die alle gleich groß sein sollen. So weit so gut. Jetzt möchte ich, dass abhängig, ob ein Wert positiv oder negativ ist die Tortenstückchen in rot oder grün angezeigt werden (jedes einzel...
20.07.2010 12:20:04
Thread-ID: 1167870
2 Beiträge
Anzeige
Diagramm Farben von Datenreihen ändern
Datenreihen

Hallo!
Ich habe ein kleines Problem und vielleicht gibt es in vba eine Möglichkeit das zu lösen.
Und zwar habe ich ein Diagramm in der sich Datenreihen durch Makros ein und ausblenden lassen. Da zu Beginn die Farben ziemlich durcheinander sind und somit schlecht zu unterscheiden sind, h...
10.12.2015 17:40:37
Thread-ID: 1463700
2 Beiträge
Diagramm Farben von Datenreihen ändern
Max
Hallo!
Ich habe ein kleines Problem und vielleicht gibt es in vba eine Möglichkeit das zu lösen.
Und zwar habe ich ein Diagramm in der sich Datenreihen durch Makros ein und ausblenden lassen. Da zu Beginn die Farben ziemlich durcheinander sind und somit schlecht zu unterscheiden sind, habe...
10.12.2015 17:40:44
Thread-ID: 1463701
3 Beiträge
Diagramm Farben von Datenreihen ändern
Datenreihen

Hallo!
Ich habe ein kleines Problem und vielleicht gibt es in vba eine Möglichkeit das zu lösen.
Und zwar habe ich ein Diagramm in der sich Datenreihen durch Makros ein und ausblenden lassen. Da zu Beginn die Farben ziemlich durcheinander sind und somit schlecht zu unterscheiden sind, h...
10.12.2015 17:40:46
Thread-ID: 1463703
2 Beiträge
Diagramm. Wert eines einzelnen Datenwertes ändern
Fra

Hallo Ihr Excel-Gurus :-),
in einer Routine setze ich mit
ActiveSheet.ChartObjects("ChartMilestones").Chart.SeriesCollection(1).Points(lngIndex).DataLabel.Text = "hallo"
den Text eines Datenpunktes auf Hallo
(Wobei lngIndex der Laufindex in einer Schleife ist)
Wie kann ich...
03.02.2016 11:39:40
Thread-ID: 1472948
5 Beiträge
Diagrammlegenden dynamisch anpassen
Rainer

Hallo,
folgendes Problem: Mein Tortendiagramm greift auf eine Tabelle zu:
Beispiel:
Helium 5
Argon 0
Sauerstoff 1
Nun wird in der Diagrammlegende sowie in der Beschriftung unter anderem Argon bzw. 0 angezeigt. Dies würde ich aber gerne ausblenden und nur im Diagramm anze...
08.06.2017 15:15:44
Thread-ID: 1563007
4 Beiträge
Nullwerte nicht in Diagramm und Legende anzeigen
Rainer

Hallo,
ich habe folgendes Problem: Meine Tabelle, die als Datenbasis meiner Diagramme dient, ändert sich dynamisch. D.h. ich habe immer wieder Nullwerte in der Diagrammbeschriftung und der Legende. Diese möchte ich aber ausgeblendet habe.
Ich habe zu diesem Thema schon in verschiedenen...
26.06.2017 09:52:15
Thread-ID: 1565765
4 Beiträge
Füllung von Diagramm und Legende per VBA ändern
Diagramm

Hallo an Alle,
ich lasse mir auf einer UserForm ein Diagramm anzeigen. Das funktioniert soweit problemlos. Da mir das weiße Diagramm auf einer grauen UserForm nicht so ganz zusagt möchte ich es in grau umfärben und nach dem Auslesen des Diagramms als Bild, färbe ich es wieder weiß. Dazu hab...
15.08.2018 17:06:56
Thread-ID: 1639673
5 Beiträge
Diagrammanzeige optimieren - Überschn. Linien
Arquanotix

Hallo!
Ich habe ein Diagramm bei dem es vorkommt das zwei Linien teilweise übereinander liegen und so nur eine davon angezeigt wird.
Wenigstens die Datenpunkte auf den Linien sollten bei Überschneidungen von beiden Linien farblich erkennbar sein, wie ist das möglich?
Hier ein Beisp...
26.10.2004 20:59:18
Thread-ID: 507151
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Diagramm-Linienfarbe und Legende in Excel korrekt zuweisen

Schritt-für-Schritt-Anleitung

  1. Daten vorbereiten: Stelle sicher, dass deine Daten in einem Excel-Arbeitsblatt gut strukturiert sind. Jede Datenreihe sollte klar definiert und in einer separaten Spalte angeordnet sein.

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

  3. Neues Modul erstellen:

    • Klicke im Projekt-Explorer mit der rechten Maustaste auf „VBAProject (deineDatei.xlsx)“.
    • Wähle „Einfügen“ > „Modul“.

  4. Code einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Sub Diagram0(chTitle As String)
   Dim Dia As ChartObject, rPlotData As Range, rData1 As Range, rData2 As Range, rData3 As Range, rData4 As Range
   Dim Data1col As Integer, Data2col As Integer, Data3col As Integer, Data4col As Integer
   Dim i As Integer
   i = 1
   Data1col = Sheets("Logfile1").CBoxData1.ListIndex + 3
   Data2col = Sheets("Logfile1").CBoxData2.ListIndex + 3
   Data3col = Sheets("Logfile1").CBoxData3.ListIndex + 3
   Data4col = Sheets("Logfile1").CBoxData4.ListIndex + 3
   If ActiveSheet.ChartObjects.Count > 0 Then ActiveSheet.ChartObjects.Delete
   Set Dia = ActiveSheet.ChartObjects.Add(180, 20, 1000, 450)
   Dia.Name = "LogDia0"
   Set rData1 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data1col), Cells(pRowEndLog1, Data1col))
   Set rData2 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data2col), Cells(pRowEndLog1, Data2col))
   Set rData3 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data3col), Cells(pRowEndLog1, Data3col))
   Set rData4 = Range(Cells(Bezuege.rFirstEntry.Row + 1, Data4col), Cells(pRowEndLog1, Data4col))
   With Dia.Chart
       .ChartType = xlLine
       .HasLegend = True
       .HasTitle = True
       .chartTitle.Text = chTitle
       .SeriesCollection.NewSeries
       .SeriesCollection(i).XValues = Range(Cells(Bezuege.rTime.Row, Bezuege.rTime.Column), Cells(pRowEndLog1, Bezuege.rTime.Column))
       .SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data1col).Value
       .SeriesCollection(i).Border.ColorIndex = 1
       ' Fügen Sie weitere Datenreihen hinzu, wenn die CheckBoxen aktiviert sind
       If Sheets("Logfile1").CheckBoxData2 Then
           i = i + 1
           .SeriesCollection.Add Source:=rData2
           .SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data2col).Value
           .SeriesCollection(i).Border.ColorIndex = 3
       End If
       If Sheets("Logfile1").CheckBoxData3 Then
           i = i + 1
           .SeriesCollection.Add Source:=rData3
           .SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data3col).Value
           .SeriesCollection(i).Border.ColorIndex = 4
       End If
       If Sheets("Logfile1").CheckBoxData4 Then
           i = i + 1
           .SeriesCollection.Add Source:=rData4
           .SeriesCollection(i).Name = Cells(Bezuege.rFirstEntry.Row, Data4col).Value
           .SeriesCollection(i).Border.ColorIndex = 5
       End If
   End With
End Sub

  5. Diagramm erstellen: Rufe die Subroutine auf, um das Diagramm zu erstellen und sicherzustellen, dass die Linienfarben den richtigen Legenden zugeordnet sind.

Häufige Fehler und Lösungen

  • Fehlerhafte Linienfarben: Wenn die Linienfarben im Diagramm nicht mit der Legende übereinstimmen, überprüfe die Reihenfolge der Datenreihen und stelle sicher, dass die richtige Farbe den entsprechenden Daten zugewiesen wird.
  • Datenreihenanzahl: Wenn du unterschiedliche Anzahlen an Datenreihen hast, stelle sicher, dass dein Code die Farben entsprechend anpasst. Verwende If-Abfragen, um nur die vorhandenen Datenreihen hinzuzufügen.
  • Diagramm stürzt ab: Achte darauf, dass du keine On Error Resume Next-Anweisung nutzt, da diese das Debugging erschwert.

Alternative Methoden

Eine Möglichkeit, die Linienfarbe in Excel zu ändern, besteht darin, die Farben direkt in der Legende zu formatieren. Du kannst die Legende so positionieren, dass sie direkt an der Linie des Diagramms angeordnet ist. Dies sorgt für eine bessere visuelle Übereinstimmung.

  • Um die Legende direkt an der Linie zu positionieren, klicke mit der rechten Maustaste auf die Legende und wähle "Legende formatieren".

Praktische Beispiele

Hier sind zwei Beispiele, wie du die Linienfarbe in Excel ändern kannst:

  1. Einzelne Linienfarbe ändern:

    .SeriesCollection(1).Border.ColorIndex = 2 ' Ändert die Farbe der ersten Linie auf Rot

  2. Farbzuweisung basierend auf einer Bedingung:

    If i = 1 Then
   .SeriesCollection(i).Border.ColorIndex = 3 ' Rot für die erste Reihe
Else
   .SeriesCollection(i).Border.ColorIndex = 4 ' Grün für die zweite Reihe
End If

Tipps für Profis

  • Verwende benutzerdefinierte Farben, um die Linienfarbe in Excel präzise nach deinen Anforderungen anzupassen, anstatt nur die Standardfarben.
  • Überlege, die Formatierung der Legende zu ändern, um eine klarere Verbindung zwischen den Datenreihen und der Legende herzustellen.
  • Das Überprüfen der Daten vor der Erstellung des Diagramms kann helfen, häufige Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die Legende direkt an der Linie anordnen? Um die Legende direkt an der Linie anzuordnen, wähle die Legende im Diagramm aus, klicke mit der rechten Maustaste und wähle "Legende formatieren". Stelle die Position entsprechend ein.

2. Warum ändern sich die Linienfarben, wenn ich die Daten aktualisiere? Die Linienfarben können sich ändern, wenn die Zuweisung der Datenreihen nicht konsistent ist. Überprüfe die Reihenfolge der Daten und die Zuweisung der Farben in deinem VBA-Code.

3. Kann ich die Farben der Linien unabhängig von der Legende ändern? Ja, du kannst die Farben der Linien unabhängig von der Legende ändern, indem du im VBA-Code die Border.ColorIndex-Eigenschaft für jede Datenreihe änderst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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