Säulendiagramm aus Spalteninhalten

khenschel · 2024-05-02T12:07:43+00:00

Hallo zusammen, jedem der sieben Namen wir in den Spalten pro Wochentag der Status farblich dargestellt. Ich möchte jeweils die Anzahl der gleichen Farben in der jeweiligen Spalte addieren und unterhalb der jeweiligen Spalte als Säulendiagramm (in der gleichen Farbe) darstellen. Die Größe der Säule ergibt sich aus der Anzahl der gleichen Farbmarkierungen. In dem Beispiel sind es 7 Leute, also wäre die max. Höhe der Säule 7, wenn alle an einem Tag vormittags und nachmittags anwesend sind. Also gilt 1 für einen ganzen Tag und 0.5 für einen halben Tag. [Bild: Userbild] Wie kann ich das am besten umsetzen? Vielen Dank für eure Unterstützung! LG Klaus

Hi Klaus,

ich war mir nicht sicher, ob die einzelnen "Tätigkeiten" im Diagramm auch einzeln ausgehalten werden sollen oder - wie in meinem vorhergehenden Beispiel - nur die Gesamtesumme.

Farben lassen sich nicht so ohne weiteres zählen - man hat einmal die Möglichkeit über den Umweg, dass man die betreffenden Tätigkeiten in die zu berücksichtigenden Zellen einträgt und entsprechend zählt, oder eine VBA-Lösung.

Ich habe mal beide Varianten erstellt:

- im Tabellenblatt "ZÄHLENWENNS" findest du die reine Formellösung mit Eintrag der Tätigkeiten in die Haupttabelle und der Formel ZÄHLENWENNS() in der Hilfstabelle im Bereich C24:G30. Schau dir die dortigen Formeln an: mittels ZÄHLENWENNS() wird die Anzahl der in den Zellen A24:A30 aufgelisteten jeweiligen "Tätigkeiten" gezählt - da jede Tätigkeit auf Vormittag und Nachmittag gesplittet sein soll, wird das Ergebnis durch 2 geteilt.

- im Tabellenblatt "UDF" findest du die Lösung mittels einer Benutzerdefinierten VBA-Funktion (UDF) FarbeZaehlen, die sich genau wie eine "normale" Formel verwenden lässt - dazu trägst du in C21 die Formel =FarbeZaehlen(C$2:C$21;$A24) ein. Dabei ist C$2:C$21 der Spaltenbereich in dem die Farbe gezählt werden soll und $A24 die Zelle, mit deren Farbe die Zellen in C$2:C$21 verglichen werden sollen. Die Formel kannst du dann bis Zeile 30 und Spalte G ziehen, sodass sie sich an die Zeile und Spalte anpasst. Die UDF selbst findest du im Standardmodul mdlUDF.

In der Hilfstabelle findest du dann noch eine Zeile mit der Summe pro Tag.

Das Diagramm ist als gestapeltes Säulendiagramm aus dem Zellbereich der Hilfstabelle erstellt, wobei ich die Datenreihe für die Summe anschließend in den Diagrammtyp Linie umgewandelt und die Beschriftungslabel eingeblendet habe.
Die Farbe der Teil-Säulen habe ich von Hand nachträglich entsprechend der gewünschten Farbe der Tätigkeiten angepasst.

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

Bis später
Karin

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

Hi Klaus,

mir war nicht bewusst, dass du die Farben noch nachträglich ändern möchtest - ergänze den Code um 1 Zeile, dann funktioniert auch die UDF-Variante:

Function FarbeZaehlen(rngZellen As Range, rngFarbe As Range) As Double

    Dim rngZ As Range

    Dim intZaehler As Integer

    Application.Volatile  '=== Zeile ergänzen!!!!

    For Each rngZ In rngZellen

        If rngZ.Interior.Color = rngFarbe.Interior.Color Then intZaehler = intZaehler + 1

    Next rngZ

    FarbeZaehlen = intZaehler / 2

End Function

Du musst dabei aber beachten, dass du die Farbe mittels "Format übertragen" änderst, nicht durch direkte Farbänderung, auch wenn die Zellfarbe "gelöscht" werden soll - in diesem Fall das Format von einer nicht gefärbten Zelle übetragen!

Wenn sich deine Daten um einen weiteren Tag erweitern und auch das Diagramm eine neue Rubrik erhalten soll, dann musst du die Hilfstabelle ebenfalls um 1 Spalte erweitern (letzte Spalte einfach nach rechts ziehen). Allerdings erweitert sich dann das Diagramm noch nicht - dazu musst du es generell in ein "dynamisches Diagramm" ändern, indem du für jede Datenreihe einen Namen erstellst, dessen Zellbereich sich automatisch an die Anzahl an Daten anpasst. Diesen definierten Namen fügst du dann ins Diagramm anstelle des ursprünglich fix angegebenen jeweiligen Zellbereichs ein.

Ich habe das mal für das Diagramm im Tabellenblatt ZÄHLENWENNS realisiert - wenn du in H2 ein neues Datum einträgst, wird eine neue leere Rubrik im Diagramm erzeugt - leer deshalb, weil noch keine Daten vorhanden sind. Wie werden die definierten Namen ins Diagramm eingetragen? Schau dir dazu einfach unter Daten auswählen... die Einträge für die Werte der einzelnen Datenreihen und der Rubrikenbeschriftung an und beachte dabei die Schreibweise.

Die Breite der Diagrammfläche musst du allerdings anschließend immer noch von Hand anpassen.

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

Bis später
Karin

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

Säulendiagramm aus Spalteninhalten

Forumthread: Säulendiagramm aus Spalteninhalten

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Säulendiagramm aus Spalteninhalten

Forumthread: Säulendiagramm aus Spalteninhalten

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread