Diagramm Kreisalken basierend auf Zellfarbe färben

demme1991 · 2024-07-24T15:44:00+00:00

Hallo liebes Forum, Ich bin absolut neu hier und hoffe ich kann verständlich rüber bringe, wobei ich Hilfe bräuchte. Ich möchte in meiner Tabelle ein Kreisdiagramm, das seine Balken basierend auf den jeweiligen Zellfarben einfärbt. Ich habe in meinem Fall aktuell 2 Zeilen (14 & 15) mit je 2 Spalten (D14, E14 & D15, E15). Wobei Immer nur die Zellen der Spalte 14 eingefärbt werden und deren Farbe soll dementsprechend ins Diagramm übernommen werden , Spalte 15 sowie dessen Kreisbalken soll ohne Farbe bleiben. Im Forum habe ich eine VBA finden können, welche mir ansatzweise geholfen hat. Damit kann ich allerdings nur beide Kreisbalken (also für Spalte E&F) einfärben, statt nur E. Weiters wollte ich dann eben den 2. Kreisbalken in der Farbe von Zeile 15 Färben. Hier meine Beispieldatei wo einmal mein Diagramm mit VBA einfärbung zu finden ist und einmal jenes, wie ich es mir vorstellen würde https://www.herber.de/bbs/user/171233.xlsm Ich hoffe auf eure Hilfe und schon mal Danke ;) LG Dennis

Hi Dennis,

hier noch eine andere Möglichkeit, bei der die Farbe nicht aus den im Code festgelegten Zellen genommen wird, denn falls sich diese mal ändern sollten, müsstest du das auch im Code ändern. Der folgende Code ermittelt die Zelladressen der Datenquelle aus den Datenreihen des Diagramms selbst:

Sub DatenpunkteFaerben()

    Dim chDiagramm As Chart

    Dim inReihe As Integer

    Dim strQuelle As String

    Set chDiagramm = Worksheets("Schlaf").ChartObjects(1).Chart

    With chDiagramm

        For inReihe = 1 To .SeriesCollection.Count

            .SeriesCollection(inReihe).Interior.ColorIndex = xlNone

            strQuelle = .SeriesCollection(inReihe).Formula

            strQuelle = Split(strQuelle, ",")(2)

            .SeriesCollection(inReihe).Points(1).Interior.Color = Range(strQuelle).Cells(1).DisplayFormat.Interior.Color

        Next inReihe

    End With

    Set chDiagramm = Nothing

End Sub

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Hi,

dass die Beschriftung "herumwandert" ist eine ganz logische und folgerichtige Sache, denn du benutzt die Datenbeschriftung von 2 Datenpunkten und die Datenbeschriftung "wandert" nunmal tatsächlich immer - und zwar so, dass sie sich stets gegenüber der Mitte des jeweiligen Datenpunktes (Kreissegments) befindet - das ist nichts Besonderes und auch nichts Neues sondern bei einem Diagramm ganz normal.
Wenn du möchtest, dass deine "Beschriftung" stationär, also unabhängig von der Position der Mitte der Kreissegemente positioniert bleibt, dann darfst du nicht die Datenbeschriftung verwenden sondern musst 2 Textfelder aus den Formen einfügen und sie mit einer Zelle verknüpfen, in der sich der anzuzeigende Text befindet - im Anhang sind das Zelle I14 und I15, in denen Text und Wert, verbunden durch einen Zeilenumbruch, zusammengefügt sind.

Die beiden Textfelder habe ich mit Farbe "Keine Füllung" formatiert, wodurch die Farbe der Zeichenfläche sichtbar ist. Die Rahmen dagegen habe ich belassen, sodass du erkennen kannst, wo genau sich die Textfelder befinden und wie groß sie sind. Die Konturen kannst du noch auf "Keine Kontur" setzen damit sie ebenfalls nicht mehr sichtbar sind.

https://www.herber.de/bbs/user/171325.xlsm

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Diagramm Kreisalken basierend auf Zellfarbe färben

Forumthread: Diagramm Kreisalken basierend auf Zellfarbe färben

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Diagramm Kreisalken basierend auf Zellfarbe färben

Forumthread: Diagramm Kreisalken basierend auf Zellfarbe färben

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread