Gestapeltes Balkendiagramm mit bedingter Formatierung

Forumthread: Gestapeltes Balkendiagramm mit bedingter Formatierung

11.08.2024 22:57:00

LeTh

Hallo zusammen,

ich benötige unbedingt Hilfe bei der Erstellung eines gestapelten Balkendiagramms mit bedingter Formatierung.
Ich habe eine Spalte angelegt mit Minuten. In einer weiteren Spalte wird eingetragen, ob es sich bei der Zeit um Rüsten (R) oder Warten (W) handelt. Jetzt möchte ich mit diesen Werten ein gestapeltes Balkendiagramm erstellen (Mehrere Vorgänge hintereinander - also nur ein Balken) Wenn die Zeit mit "R" in der Spalte definiert wurde, dann soll der Balken grün sein. Wenn die Zeit mit "W" definiert wurde dann grün. Leider funktioniert das mit der normalen Erstellung eines Balkendiagramms nicht. Ich bekomme pro Zeitvorgang immer eine andere Farbe und nicht abwechselnd bzw. je nach Definition grün oder rot. Ich vermute das geht nur mit VBA, habe aber keine guten Kenntnisse darin.

Ich bin über jede Hilfe sehr dankbar!!

LG
Lena

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gestapeltes Balkendiagramm mit bedingter Formatierung

11.08.2024 23:13:53

Onur

Und jetzt? Soll Jemand vorbeikommen und sich deine Datei anschauen?

Datenstruktur ändern / AW: Gestapeltes Balkendiagramm

12.08.2024 07:31:31

tobias

Hallo Lena,

ins Blaue geraten: ändere die Datenstruktur für die Visualisiereung.

Die Werte für R und W müssen in unterschiedlichen Spalten stehen. Dann kannst Du sie getrennt färben.

Falls Du es konkreter benötigst, ist Deine Beispieldatei hilfreich.

Gruß,
tobias

AW: Gestapeltes Balkendiagramm mit bedingter Formatierung

12.08.2024 13:51:39

Beverly

Hi Lena,

ich nehme mal an, dass die Begriffe R und W in der Nachbarspalte rechts von der Spalte mit den Minuten-Angaben stehen? Falls nicht, musst du das entsprechend anpassen.

Sub DiaFarben()

    Dim serReihe As Series

    Dim strFormel As String

    With ActiveSheet.ChartObjects(1).Chart

        For Each serReihe In .SeriesCollection

            strFormel = Split(serReihe.Formula, ",")(2)

            ' Inhalt der Zelle rechts neben der jeweiligen Minuten-Angabe

            Select Case Range(strFormel).Offset(0, 1).Value

                Case "R"

                    serReihe.Interior.Color = vbGreen

                Case "W"

                    serReihe.Interior.Color = vbRed

            End Select

        Next serReihe

    End With

End Sub

Bis später
Karin

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

Beliebteste Forumthreads (12 Monate)

Gestapeltes Balkendiagramm mit bedingter Formatierung

Forumthread: Gestapeltes Balkendiagramm mit bedingter Formatierung

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Gestapeltes Balkendiagramm mit bedingter Formatierung

Forumthread: Gestapeltes Balkendiagramm mit bedingter Formatierung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread