Office: Maschinenbelegung zeitlich in Diagramm darstellen

Du musst noch ein Datum vor die Start-Belegung- und Ende-Belegung-Uhrzeiten setzen also z.B. so: 18.04.2015 09:00:00. Im Diagramm formatierst du dann die Achsenbeschriftung auf Uhrzeit.
Die Dauer selbst bleibt natürlich vom Wert her Stunden/Minuten/Sekunden.

 

Hallo Beverly,

kannst du mir nochmal kurz helfen?

Ich habe jetzt mit VBA ein Programm geschrieben, das mir die Daten wie im angehängten Excel ausgibt.

Nun würde ich gerne daraus automatisiert in VBA ein Gantt Diagramm machen, in dem die erste Uhrzeit und eine beliebige Anzahl an Datenreihen aus Pausen und weiteren Dauern hinzugefügt werden können, die dann wieder mit der Zellfarbe formatiert werden. Die letzte Maschine soll dabei im Diagramm ganz oben angezeigt werden. Sollte keine Maschinenbelegung vorhanden sein, so sollte auch kein Balken im Diagramm auftauchen, aber die Maschine schon.

In dem angehängten Beispiel sind es eine Ausgangsdatenreihe (Beginn) und dann die Dauer der ersten Ausgangsdatenreihe sowie dann nur noch Pausen (ohne Markierung, soll leer im Diagramm sein) und Dauern (jeweils nach Abteilung eingefärbt). Es können jedoch auch mehr als 5 zusätzliche Datenreihen sein.

Kannst du mir den obigen VBA Code noch so ergänzen, dass es auf das Beispiel passt und sich selbst ein Diagramm erzeugt wie wir im obigen Beispiel hatten?

 

Hi,

zeichne den Code, wie du das Diagramm für 1 Maschine erstellst, mit dem Makrorekorder auf. Für weitere Maschinen musst du nur die Datenbereiche der Reihen (per Code) entsprechend anpassen.

Die Reihenfolge der Maschinen (der gestapelten Balken) kann man umkehren, indem man in den Achsenoptionen der Vertikalachse "Rubriken in umgekehrter Reihenfolge" aktiviert.

 

Hey,
das hatte ich probiert.
Bekomme es aber nicht hin und es geht immer wieder schief.
Könntest du mir noch einmal helfen? *Smilie

 

Hi,

was genau verstehst du unter "bekomme es nicht hin"?

 

Ich verstehe die Schritte nicht, die ich während der Makroaufzeichnung machen soll und was ich dann verändern muss, damit es automatisiert für jede Vorlage funktioniert.

 

Wie man das Diagramm erstellt, steht doch in der Arbeitsmappe und das sind die Schritte die aufgezeichnet werden müssen...
Den aufgezeichneten Code kann man dann im Anschluss noch bereinigen und von den unnötigen Befehlen wie Select und Activate befreien.

Code:

Und hier noch Code für das Anpassen des Wertebereichs der Datenreihen:

Code:

 

Besten Dank, tolle Sache.

Klappt soweit.

Ich habe den Code jetzt etwas umgeschrieben, sodass ich das Diagramm auf einer anderen Seite einfügen kann.

Aber er löscht mir dann die Datensätze, statt welche einzufügen.

Was ist da passiert?

Sub DiaErstellen()

Dim lngReihe, j As Long
Dim strFormel As String
Dim intSpalte As Integer
Dim neu As Worksheet

j = 1

Set neu = Worksheets.Add
With neu
.Name = "Diagramme"
.Move After:=Sheets(Sheets.Count)
End With

With neu.Shapes.AddChart2(297, xlBarStacked).Chart
.SetSourceData Source:=Worksheets("Tabelle1").Range("A2:M2")
.PlotBy = xlColumns
.Axes(xlCategory).ReversePlotOrder = True
.Axes(xlCategory).Crosses = xlMaximum
.HasLegend = False
End With

With neu.ChartObjects(j).Chart
.SeriesCollection(1).XValues = Worksheets("Tabelle1").Range("A2:A8")
For lngReihe = 1 To .SeriesCollection.Count
strFormel = Split(.SeriesCollection(lngReihe).Formula, ",")(2)
intSpalte = Range(strFormel).Column
.SeriesCollection(lngReihe).Values = Range(Cells(2, intSpalte), Cells(8, intSpalte))
Next lngReihe
End With
End Sub

 

Ich würde mal denken, hier fehlt der Tabellenname:

Code:

 

super, dankeschön!

ich hatte die bezeichnung des Tabellenblattes einmal mit reingenommen, muss man aber scheinbar 3x mit reinnehmen.

kann man dir was gutes tun bzw. dich bewerten?

 

Excel kommt durcheinander, wenn sich die Zellen einerseits auf ein anderes Tabellenblatt beziehen durch Worksheets("Tabelle1").Range(....) und andereseits innerhalb des Ranges durch Cells(...) auf Zellen im aktiven Tabellenblatt.

Bewerten kann man Beiträge durch den mittleren der 3 Schalter links unterhalb des entsprechenden Beitrags.