Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Farbe - Colorindex? -Points - SeriesCollection

Forumthread: VBA Farbe - Colorindex? -Points - SeriesCollection

VBA Farbe - Colorindex? -Points - SeriesCollection
Max
Hi
Ich versuche einzelne Punkte in einem Diagramm per VBA zu färben aber scheitere anscheined schon am richtigen Term.
Hier mein Versuch:
ActiveSheet.ChartObjects("Grafiek 35").Activate
ActiveChart.SeriesCollection(1).Points(1).Select
With Selection
.Interior.ColorIndex = 3
End With
Ich hab alles ausprobiert, vom verschiedenen Ansprechen, Border, Fill, Forecolour etc., und habs auch mit den Beispieldateien "Säulen Einfärben" und "Diagramm Datenpunkte färben" probiert und bin mit allem gescheitert.
Gibts da einen einfachen Ausweg aus meinem Dilemma?
Anzeige

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

Betreff
Benutzer
Anzeige
AW: VBA Farbe - Colorindex? -Points - SeriesCollection
29.01.2010 18:08:34
Tino
Hallo,
versuche es mal so.
With ActiveSheet.ChartObjects("Grafiek 35").Chart.SeriesCollection(1).Points(1)
.Interior.ColorIndex = 3
End With
Gruß Tino
AW: VBA Farbe - Colorindex? -Points - SeriesCollection
29.01.2010 18:40:33
Max
Tausend Dank. Läuft einwandfrei, wie schon das letze Mal als Du mir geholfen hast.
Besten Gruß
Max
Anzeige

Forumthreads zu verwandten Themen

So. & Feiertage Font.ColorIndex = 5
Heinz

Hallo Leute
Habe einen Jahreskalender.
Leider komme ich bei Case "So" & Case "R" nicht weiter.
Es sollte alles das mit Zelle.Interior.ColorIndex = 36 eingefärbt wird, auch die Schrift mit Font.ColorIndex = 5 eingefärbt werden.
Könnte mir bitte jemand weiterhelfen ? Habe die...
22.06.2009 19:55:56
Thread-ID: 1083584
3 Beiträge
Bei ColorIndex = 34 - Formel einfügen
Heinz

Hallo im Forum
Ich habe ein Makro,das mir nach jeden Freitag im Monat eine Zeile mit ColorIndex = 34 einfügt.
Nun möchte ich, das mir nur auf den Zeilen die mit ColorIndex = 34 eingefügt wurden, eine Formel miteinfügt.
Habe zum besseren Verständnis eine Beispieldatei anghhängt.
...
29.12.2009 21:08:46
Thread-ID: 1126283
8 Beiträge
Anzeige
Was hat Interior.ColorIndex mit einem Rand zu tun?
Peter

Hallo
Bei der Bearbeitung eines Ranges verliert ein umrandeter Bereich innerhalb dieses Ranges bei nachfolgender Codezeile den unteren Rand.
Das verstehe ich nicht. Wer hilft mir auf die Sprünge? Ich will nur alle Farben (Hintergrund und Schrift) eliminieren.
Gruss, Peter
With A...
05.01.2010 14:18:02
Thread-ID: 1127323
6 Beiträge
Ist Summe bei Interior.ColorIndex = 37
Heinz

Hallo Leute
Habe in unteren Code wenn ich in Spalte A ein Datum eingebe,wird mir eine Spalte vorher die Spalte A bis G eingefärbt.
Nun möchte ich,wenn die Zelle eingefärbt wird, das in D die Summe bis zur oberen eingefärbten Spalte die Formel =Summe() eingefügt wird.
Die obere einge...
06.02.2011 10:44:43
Thread-ID: 1199245
10 Beiträge
Range("A1:C1") = ColorIndex = 38
Karsten

Hallo,
ich möchte A1-C1 ohne select einfärben. Zwar wird mein Code anstandslos durchlaufen, aber es kommt keine Farbe.
Range("A1:C1") = ColorIndex = 38 'rosa
Kann ihn mir jemand richtig machen?
Danke Gruß
Karsten
10.12.2011 14:52:20
Thread-ID: 1241505
3 Beiträge
Anzeige
Selection.Font.ColorIndex
Günter

Hallo und einen schönen Feiertag,
habe folgendes Problem
Cells.Find(TextBoxb4.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell(1, 5) = ActiveCell(1, 5) + Me.TextBoxb1.Va...
29.03.2013 18:35:37
Thread-ID: 1306511
3 Beiträge
Anzeige
Rückgabewert Font.ColorIndex für gesamte Zeile?
Michael

Lieber Herr Herber,
ich nutze die Gelegenheit, mich hiermit bei Ihnen herzlich für Ihr super Forum zu bedanken. Ich habe hier schon viele Tipps und Hilfestellungen gefunden, die mir viel Zeit und Mühe gespart haben. Echt klasse, dass Sie Ihr Wissen so bereitwillig zur Verfügung stellen. Vie...
28.04.2018 08:34:53
Thread-ID: 1621949
4 Beiträge
Diagramm SeriesCollection via VBA aktualisieren
mensi

Hallo alle Zusammen,
ich hoffe Ihr könnt mir hier weiter helfen?!
ich verzweifel so langsam und find auch irgendwie keine Lösung.. :(
In einem bestehendem Diagramm mit zwei Mittelwertreihen sollen weitere Messerwerte aus x belibigen Arbeitsblättern dargestellt werden.
Soweit fu...
18.06.2019 16:32:50
Thread-ID: 1698304
9 Beiträge
SeriesCollection mit VBA
Melli

Hallo alle zusammen,ich habe im Archiv schon gesucht und gesucht aber auf mein Problem keine Lösung gefunden. Hoffentlich kann mir einer von euch helfen....Ich baue ein Chart mit zwei Linien via VBA auf. Nun möchte ich eine dritte Reihe als Balken hinzufügen, die nur einen Wert hat. Das bekomm...
03.12.2002 17:14:16
Thread-ID: 188489
3 Beiträge
Anzeige
Excel97 -> 2000 Selection.Font.Colorindex
Günter aus DO
HAllo,folgendes Problem , mein Excel97 programm bricht unter Excel2000 ab, mit LAufzeitfehler 1004
ColorIndex Eigenschaft kann nicht festgelegt werden.
Im Programm ändere ich die Schriftfarbe mit folgenden Befehlen :
Cells(7, 39).Select
With Selection.Font
.ColorIndex = 11...
14.05.2003 12:53:23
Thread-ID: 256265
4 Beiträge
Sortieren per VBA mit ColorIndex?
Moritz

Hallo,per VBA möchte ich die Spalten im Bereich A2:J650 sortieren lassen. Funktioniert auch, nur daß er die ColorIndex-Werte in Spalte F nicht als Zahlen liest, sondern stattdessen die "darunterliegende" Formel in die entsprechenden Zellen (F2:F650) einträgt. Gerade auf diese Zahlen kommt es je...
19.06.2003 08:37:27
Thread-ID: 271047
5 Beiträge
Interior. ColorIndex
Olli
Hallo Excel-Spezis;
ich moechte mit meinem Code gerne in Spalte C die Hintergrundfarben der Zelle auf die jeweilige Zelle in Spalte 7 uebertragen. Der Debugger motzt beim set b =...
Wie kann man den Debugger eigentlich beenden? Gibt es eine andere Moeglichkeit, als den Editor zu schliessen?<...
04.07.2003 11:39:08
Thread-ID: 277049
4 Beiträge
Anzeige

Infobox / Tutorial

Punkte in Excel-Diagrammen mit VBA einfärben

Schritt-für-Schritt-Anleitung

Um Punkte in einem Excel-Diagramm mithilfe von VBA einzufärben, kannst Du folgende Schritte befolgen:

  1. Öffne Excel und wähle das Diagramm aus, das Du bearbeiten möchtest.

  2. Öffne den Visual Basic for Applications (VBA) Editor, indem Du ALT + F11 drückst.

  3. Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject (dein Dokument)" klickst und "Einfügen" > "Modul" wählst.

  4. Kopiere und füge den folgenden Code in das Modul ein:

    With ActiveSheet.ChartObjects("Grafiek 35").Chart.SeriesCollection(1).Points(1)
   .Interior.ColorIndex = 3
End With

  5. Ändere "Grafiek 35" in den Namen Deines Diagramms und die Zahl 1 zu dem Punkt, den Du einfärben möchtest.

  6. Schließe den VBA-Editor und führe das Makro aus, um die Farbe des Punktes zu ändern.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Lösung: Stelle sicher, dass der Diagrammname korrekt ist. Überprüfe den Namen im Excel-Diagramm.

  • Fehler: .Interior.ColorIndex funktioniert nicht

    • Lösung: Vergewissere Dich, dass Du den richtigen Punkt der Serie ansprichst. Du kannst auch .Format.Fill.ForeColor.RGB verwenden, um eine benutzerdefinierte Farbe zu setzen.

Alternative Methoden

Wenn Du keine VBA-Lösung nutzen möchtest, kannst Du auch manuell die Farbe eines Punktes ändern:

  1. Klicke mit der rechten Maustaste auf den Punkt im Diagramm.
  2. Wähle "Datenpunkt formatieren".
  3. Ändere die Füllfarbe unter dem Reiter "Füllung" und wähle die gewünschte Farbe aus.

Praktische Beispiele

Hier sind einige Beispiele, wie Du verschiedene Punkte in einem Diagramm einfärben kannst:

  1. Einzelne Punkte einfärben:

    ActiveSheet.ChartObjects("Grafiek 35").Chart.SeriesCollection(1).Points(2).Interior.ColorIndex = 5

  2. Alle Punkte einer Serie einfärben:

    Dim i As Integer
For i = 1 To ActiveSheet.ChartObjects("Grafiek 35").Chart.SeriesCollection(1).Points.Count
   ActiveSheet.ChartObjects("Grafiek 35").Chart.SeriesCollection(1).Points(i).Interior.ColorIndex = i
Next i

Tipps für Profis

  • Nutze die Color-Eigenschaft, um benutzerdefinierte RGB-Farben zu verwenden:

    ActiveSheet.ChartObjects("Grafiek 35").Chart.SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' Rot

  • Experimentiere mit verschiedenen ColorIndex-Werten, um die besten Ergebnisse für Deine Diagramme zu erzielen. Eine Liste der vordefinierten Farbcodes findest Du in der Excel-Hilfe.

FAQ: Häufige Fragen

1. Wie finde ich den Namen meines Diagramms?
Du kannst den Namen Deines Diagramms in der Excel-Navigationsleiste sehen, wenn Du das Diagramm auswählst. Alternativ kannst Du den Namen auch in den Diagrammtools nachlesen.

2. Was mache ich, wenn die Farbe nicht geändert wird?
Überprüfe, ob Du den richtigen Punkt in der Serie angibst und ob das Diagramm im aktiven Arbeitsblatt vorhanden ist. Achte auch darauf, dass das Makro korrekt ausgeführt wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige