Zeit Gantt chart

[KDM]

Hi Excel Experten,

I chabe da mal eine Frage.
Kann man mit Excel eine Time Gantt chart bauen ?

Also:
Beladung dauert 3 Std. und fangt um 06:00 und dauert demnach bis 09:00
Danach Flug, dauert mit rollen 10:20. Fant nach dem ende der Beladung an, also um 09:00 ind ist um 19:20 zuende.

Jetzt würde ich das gene auf ein visuellen Zeitstrahl darstellen, also erst die beladung, und dann eine Zeile drunter den Flug (also in der Zeitachse versetzt)...... Geht das

Ein beispiel habe ich beigefügt.

Vielen Dank für´s Nachdenken.

Beste Grüße,
KDM

[Klaus-Dieter]

Hallo,

hier eine Beschreibung, wie man das mit einem Diagramm machen kann. Hier eine Beschreibung, wie man das direkt in Excel lösen kann.

[KDM]

Hi,

vielen Dank für die schnelle Antwort.
Das Beispiel war für Tage. Geht das auch für Stunden ?

Besten Dank.
KD

[WillWissen]

Hi KD,

hast du den zweiten Link von Klaus-Dieter auch angesehen (direkt in Excel lösen)? Das Beispiel dahinter trifft voll dein Problem.

[KDM]

Happy Easter Klaus-Dieter und Günter,

also habe mir natürlich das "Excel" Makro angeschaut.
Kriegs aber nicht hin. Blein irgenwo stecken.

Könnte ich eine oder zwei Veilen haben in Excel mit dem Makro, sodass ich es Copy - Paste machen kann  

Geht das.

Vielen Lieben Dank,

ier übrigen auch Klaus Dieter

[Klaus-Dieter]

Hallo KDM,

anbei eine Beispieldatei. Das Makro ist noch eine Jugendsünde, das würde ich heute ganz anders schreiben.

[Klaus-Dieter]

Hallo KDM,

ich weiß nicht, ob dir das hilft, aber so etwa würde mein Quelltext jetzt aussehen:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim varTgCol As Variant
    If Target.Column = 4 Then
        varTgCol = Application.Match(Cells(Target.Row, 2), Rows(1), 0)
        Range(Cells(Target.Row, Application.Match(Cells(Target.Row, 3).Value * 24, Range(Cells(2, varTgCol), _
        Cells(2, varTgCol + 24)), 0) + varTgCol - 1), Cells(Target.Row, Application.Match(Cells(Target.Row, 4) _
        .Value * 24, Range(Cells(2, varTgCol), Cells(2, varTgCol + 24)), 0) + varTgCol - 1)).Interior.Color = 65535
    End If
End Sub

[KDM]

Hi Klaus-Dieter,

vielen herzlichen Dank.
Das ist schon ganz nahe dran was ich brauche. Habe versucht es zu modifizieren um perfekt zu sein, aber das bekomme ich nicht hin.

Ich habe nochmal die Beispielstabelle angehängt.

In dieser Tabelle wird:

- in C, D und E eine Zeit eingegeben.
- Dann in F4 der Beginn der ganzen Berechnung eingegeben, also Dutum und Uhrzeit.
- Die Zeiten von C, D und E werden in H addiert, also H4=C4+D4+E4
- Ergebnis H4 wird zu F4 addiert, also G4= F4+H4

In G4 wird jetzt das ende von dem Event in Datum/Zeit angegeben.

Dann erfolgt ein automatischer Übertrag von F5=G4.
Hier fängt dann ein neues Event an, und das von oben lauft nochmal ab.

Es wäre sehr gut wenn ich die Datum und Zeitformatierung in F und G beibehalten kann.

Die Gant Chart sowie Kette der Berechnung beginnt bei dem ersten maunuel eingegebenen Datum/Zeit in F4.

Kanns du das in die Tabelle (Attachment) einbauen ?

:69: :69: :69: :69:

Vielen Dank
Klaus Dieter

---

Datei vergessen

[Klaus-Dieter]

Hallo Klaus Dieter,

im Prinzip lässt sich das schon einbauen, allerdings müsste in den Zeilen 2 und 3 ein Kalendarium und eine Scala der Uhrzeiten eingebaut werden. Deinem Beispiel entnehme ich, dass da Zeitsprünge im 10 Minutentakt möglich sind. Das würde bedeuten, dass pro Tag 144 Spalten benötigt werden. Sehe ich das richtig, oder reicht es die Zeiten im Stundentakt zu markieren?

[KDM]

Hi Klaus-Dieter,

(irgendwie komisch seinen eigenen Namen zu schreiben)

Also 15 minuten Takt oder 30 minuten wäre besser.

Vielen vielen Dank,

Grüße,
Klaus Dieter