Office: Maschinenbelegung zeitlich in Diagramm darstellen

Hallo zusammen,

nochmals entschuldige ich mich dafür, dass ich aus Unwissen Crossposting gemacht habe. Es ist nun eine Woche her und ich werde es nie wieder tun.

Ich würde mich sehr über eure Hilfe freuen, da ich ein Visual Basic for Applications (VBA) Tool schreiben möchte, bei dem ich momentan noch etwas überfordert bin.

Es geht um eine Firma, die mehrere Maschinen in unterschiedlichen Räumen hat, die von verschiedenen Abteilungen genutzt werden können.

Die Maschinen werden von Montag bis Sonntag genutzt, montags soll eine Auswertung erstellt werden und diese Auswertung in einem separaten Excel-Sheet ausgegeben werden.

Zur Verfügung habe ich eine Liste aufgeteilt in fünf Spalten:
1. Spalte: Datum der Nutzung der Maschine (kein Wochentag, sondern im Format tt:mm:jjjj)
2. Spalte: genutzte Maschine mit Nummer
3. Spalte: Abteilung, die die Maschine genutzt hat
4. Spalte: Beginn der Nutzung der Maschine (Uhrzeit)
5. Spalte: Ende der Nutzung der Maschine (Uhrzeit)

Auf dem neuen Excel-Sheet mit der Auswertung soll pro Tag (der Folgetag unter dem vorherigen Tag) in chronologischer Reihenfolge ein Diagramm erstellt werden, das auf der x-Achse die Uhrzeit beinhaltet und auf der y-Achse die verschiedenen Maschinen, die genutzt worden sind.

Ich möchte nun, dass jeder Abteilung, die in den Daten vorhanden ist, eine Farbe zugewiesen wird und diese Abteilung dann in dem Diagramm in Form eines Balkendiagramms (Belegungsdauer) dargestellt wird, wann Sie die Maschine genutzt hat. Es soll der Belegungszeitraum in Form eines Balkens von der jeweiligen Abteilung (also in der entsprechenden Farbe) auf der entsprechenden Maschine dargestellt werden.

Kann mir jemand helfen oder hat vielleicht jemand eine Vorlage, da er schon ein ähnliches Problem gelöst hat?

Es muss sich unbedingt um VBA handeln.

Ich freue mich mit euch auszutauschen, Ihr würdet mir sehr helfen.

Liebe Grüße,
Marianne

:)

 

Hi Marianne,

ich nehme an, du meinst so etwas wie ein Gantt-Diagramm - schau dir dazu mal auf meiner HP, Seite Diagramme das betreffende Beispiel an: Link zum Beispiel. Vielleicht kann es dir ja als Anregung dienen.

 

Dankeschön.
Das Problem ist für mich, wie ich dann die Daten in das Diagramm über ein VBA bekomme.
Weisst du da weiter?

 

Ich habe mir gerade mal dein Gantt Diagramm auf deiner Seite angeschaut.

Das könnte helfen, ein wichtiger Teil fehler aber:

Aber was mache ich, wenn ein Projekt mehrere Zeiträume umfasst?
Beispielsweise vom 06.01. bis 12.01. und dann nochmal vom 17.01 bis 20.01.

Die unterschiedlichen Zeiträume möchte ich dann in zwei Farben versehen.

 

Wenn es mehrere Zeiträume hintereinander sind, musst du die Tabelle genau so weiterführen und als neue Datenreihe(n) übernehmen.

 

Das habe ich versucht - siehe Datei unten.
Was ist da schiefgelaufen, da die Balken plötzlich so unheimlich lange werden?

 

Verstehe ich das richtig - es sollen bei allen Maschinen 3 Tage Pause bis zum nächsten Lauf sein? Dann musst du das bem Diagramm auch so mitteilen - also nicht den neuen Start als Datum sondern als Tage(sdifferenz), denn die Balken sollen sich ja stapeln:


Tabelle1

Â	A	B	C	D	E	F
19	Â	Projektstart	Projektende	Dauer1	Pause	Dauer2
20	Projekt 1	06.01.2006	12.01.2006	6	3	1
21	Projekt 2	09.01.2006	19.01.2006	10	3	3
22	Projekt 3	10.01.2006	21.01.2006	11	3	1
23	Projekt 4	11.01.2006	01.02.2006	21	3	1
24	Projekt 5	05.01.2006	15.02.2006	41	3	1

verwendete Formeln
Zelle	Formel	Bereich	N/A
D20: D24	=C20-B20	Â	Â

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 18.26 einschl. 64 Bit

 

Hi Beverly,

danke, ja super.

Problem ist jetzt nur noch, dass die Maschinenbelegung nicht immer von der gleichen Abteilung stattfindet und verschiedene Farben die Abteilungen darstellen sollen.

Die Abteilungen sollen somit unterschiedliche Farben im Diagramm haben, müssen aber nicht immer in der gleichen Reihenfolge die Maschinen belegen.

Ist das darstellbar (siehe Beispiel-Datei)?

 

Hi,

das ist schon darstellbar, aber dann musst du die betreffenden Balken entweder einzeln von Hand einfärben oder mit VBA (dazu könnte man ja die Farbe aus den Zellen auslesen).

 

Weißt du, wie man das Skript dazu schreibt, damit man die Farben ausliest und im Diagramm entsprechend färbt?

 

Ausgehend davon, dass über der betreffenden Spalte "Dauer Belegung ..." steht, dann so:

Code:

Ich bin davon ausgegangen, dass du den Code in der hochgeladenen Mappe testen willst, deshalb steht ChartObjects(2). Falls es eine andere Anzahl an Diagrammen sind, dann musst du diese Zahl anpassen. Anstelle des Index kannst du auch den Diagrammnamen schreiben ChartObjects("Diagramm 2").

 

Danke, danke, danke!*rolleyes.gif*

Das hilft mir erstmal sehr weiter.

Eine kleine Sache habe ich noch.
Wie kann ich das Diagramm auf Uhrzeit (statt Datumsangaben) umstellen, ohne dass es zerschossen wird?

 

Kannst du mir auch noch erklären, was diese Zeile macht?

If InStr(Range(strFormel).Cells(1).Offset(-1, 0), "Dauer Belegung") = 0

"Dauer Belegung" habe ich nämlich sonst nirgends benutzt, oder?
Ansonsten habe ich alles verstanden.

 

Zu der Frage Uhrzeiten - das ist komplizierter in der Darstellung und hängt von den konkreten Daten ab.

Diese Codezeile prüft, ob in der Zelle oberhalb der ersten Datenzelle der jeweiligen Datenreihe der Text "Dauer Belegung" enthalten ist - steht der Text dort nicht, dann wird die Datenreihe mit Füllfarbe Keine formatiert, andernfalls werden alle Datenpunkte der Datenreihe durchlaufen und entsprechend der Zellfabe formatiert.
Man kann das selbstverständlich auch anders lösen, denn im Diagramm ist jede zweite Datenreihe ohne Füllfarbe zu formatieren, beginnend mit der ersten, aber in deinem konkreten Fall bietet sich die Variante mit dem Zellinhalt an.

 

Ich habe die Tabelle jetzt nochmal mit Uhrzeiten modifiziert, nur funktioniert das Diagramm nun nicht mehr.

Kannst du mir noch sagen, wie man das wieder funktional macht? (siehe Datei im Anhang)

Mit dem VBA dürfte das ja später keine Probleme machen, wenn es dargestellt werden kann, richtig?