Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbe aus Zelle ins Diagramm

Forumthread: Farbe aus Zelle ins Diagramm

Farbe aus Zelle ins Diagramm
06.08.2005 16:35:45
Steffen F
Hallo,
meine Frage ist die Umkehrung von:
"Diagrammfarbe in Tabelle automatisch eintragen - Steffen 05.08.2005 11:06:44".
Ich möchte bitte, dass die von mir festgelegte Hintergrundfarbe in einer Zelle (mit Wert fürs Diagramm) auch für die Farbe des zugehörigen Balken-/Säulen-/Linien-Diagramms automatisch verwendet wird.
Danke.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: etwas konkretere Ausführung
06.08.2005 17:36:16
Steffen F
Habe folgendes in Excel:
Januar | Februar
17 | 6
5 | 12
Hier mein VBA dazu:

Sub chart()
Dim cht As chart
Dim Hintergrundfarbe As Integer
Dim AnzahlDiagramme As Integer
AnzahlDiagramme = 2     'sollte besser automatisch gehen!
For i = 1 To AnzahlDiagramme    'schleife für alle Diagramme
Set cht = ActiveSheet.ChartObjects(i).chart
If Range("A2").Value > 5 Then
'*** Hiermit selber festlegen: _
cht.SeriesCollection(1).Interior.ColorIndex = 0
'*** ganz automatisch nach Hintergrundfarbe
'Hintergrundfarbe = Range("A2").Interior.ColorIndex
Hintergrundfarbe = [A2].Interior.ColorIndex
cht.SeriesCollection(1).Interior.ColorIndex = Hintergrundfarbe
Hintergrundfarbe = Range("A3").Interior.ColorIndex
cht.SeriesCollection(2).Interior.ColorIndex = Hintergrundfarbe
'SeriesCollection() = Reihe im Diagramm!
Else
cht.SeriesCollection(1).Interior.ColorIndex = 4
End If
Next
End Sub

F R A G E :
Welches ist ein Ersatz für SeriesCollection, wenn ich stattdessen nicht die Reihe durchgehend markieren will, sondern eher die die Rubrik (also Monate)?
Anzeige
AW: etwas konkretere Ausführung
06.08.2005 18:12:24
Leo
Hi,
lad mal ein kleines Beispiel hoch.
mfg Leo
AW: etwas konkretere Ausführung
07.08.2005 15:48:49
Steffen F

Die Datei https://www.herber.de/bbs/user/25380.xls wurde aus Datenschutzgründen gelöscht

AW: etwas konkretere Ausführung
07.08.2005 16:40:25
Herbert H.
probier das einmal:


Option Explicit
Public Sub säulen_färben()
Dim i%, dr%, p%, s%, f%
s = 1
Application.ScreenUpdating = False
With ActiveSheet
    With .ChartObjects(1).chart
      dr = .SeriesCollection.Count
      For i = 1 To dr
        With .SeriesCollection(i)
           For p = 1 To .Points.Count
               With .Points(p)
                 f = Cells(2, s).Interior.ColorIndex
                     .Interior.ColorIndex = f
              End With
             s = s + 1
           Next
        End With
       s = 1
      Next
   End With
End With
Application.ScreenUpdating = True
End Sub

     
https://www.herber.de/bbs/user/25382.xls
gruß Herbert
Anzeige
AW:
06.08.2005 18:51:05
Herbert H.
hallo Steffen,
weil du diesen Beitrag (05.08.2005 11:06:44) ansprichst,
bist du der Meinung daß man dort noch antworten sollte,
oder eher nicht ?
gruß Herbert
AW:
07.08.2005 15:31:28
Steffen F
Ich denke fast,
man sollte auf die Frage, auf die ich mich beziehe, nicht mehr antworten, weil ich es interessanter für den Anwender finde, das Diagramm zu beeinflussen, als mir von Excel (tlw. nicht so schöne Farben) vorschreiben zu lassen.
Danke.
Anzeige
AW:
07.08.2005 15:57:59
Herbert H.
da hast du das offensichtlich nicht richtig verstanden,
wie ich das gemeint habe...
gruß Herbert
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
Farbe der Nachbarzelle
Volker

Hallo zusammen,
zuerst einmal wünsche ich Euch ein gutes 2009!
Nun zu meinem Problem:
Ich übergebe mittels untenstehendem Code die Daten an eine Tabelle. Funktioniert auch. Allerdings hätte ich jetzt gerne das bei nachträglich geleerter Zelle die Ursprungsfarbe wieder erscheint.
08.01.2009 12:50:17
Thread-ID: 1037876
8 Beiträge
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
farbe von Objekt auslesen
Objekt

Hallo zusammen,
ich würde gerne die Farbe von Objekten, mit denen Sie gefärbt sind auslesen.
Mit dem Makrorekorder kann ich mir ja leicht aufzeichnen, wie ich das Objekt färbe, aber rückwärts scheint das nicht zu funktionieren.
Im Prinzip bräuchte ich etwa sowas:
msgbox Workshee...
15.07.2009 17:30:03
Thread-ID: 1088874
3 Beiträge
Anzeige
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:42:25
Thread-ID: 1093113
4 Beiträge
Farbe bei betreten der Zelle
Stefanglander

Hallo Forum,
habe hier etwas sehr interessantes gefunden.
Option Explicit
Function ColorFromPallet(Optional lOldCol As Double = xlNone) As Double
Dim dSavCol As Double, dNewCol As Double
Dim iRGB_R As Integer, iRGB_G As Integer, iRGB_B As Integer
dSavCol = ActiveWorkbook...
13.08.2009 22:38:17
Thread-ID: 1095814
18 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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