Clever-Excel-Forum

Normale Version: Zeit Gantt chart
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
Hallo Klaus-Dieter,

anbei die Datei, habe das für dich eingebaut.
Hi Klaus-Dieter,

also so ist das schon genau was ich brauche.
Bloß irgendwie andern sich die Zeitbalken nicht wenn ich die Zeit ändere. Was mach ich falsch.

Zudem, kann ich die Farbe ändern. Ist das über Bedingtes Formatieren ?

Sorry übrigen für die verzögerte Antwort, mußte noch atbeiten.

Vielen herzlichen Dank soweit.

Beste Grüße,
KD
Hallo Klaus Dieter,

im Moment ist das so programmiert, dass der Balken nur dann gezeichnet wird, wenn man in Spalte G eine Änderung vornimmt. Diese muss mit Enter abgeschlossen werden. Die Farbe wird im Quelltext vorgegeben. Das erfolgt durch diese Anweisung: .Interior.Color = 65535. Andere Farbwerte kannst du dir hier: Farbwerte in Excel heraus suchen.
Hi Klaus-Dieter,

vielen Dank für die Email.
Irgendwie funktioniert das nicht.
Ich habe es vorsichtshalber nochmal herunter geladen.
Zeiten geändert, soda in "G" es zu eine Änderung kommt. Trotzdem hat der Zeitstrahl sich nicht geändert. Komish.

Versteh das nicht.

Beste Grüße,
KD
Hallöchen,

Zitat:im Moment ist das so programmiert, dass der Balken nur dann gezeichnet wird, wenn man in Spalte G eine Änderung vornimmt.

müsste man auf die Spalte B:E (oder A:E) ausrichten. In G stehen Formeln.

Gehe dazu in den VBA-Editor (ALT+F11) und ändere im Code des Tabellenblattes diese Zeile

    If Target.Column = 7 Then

in

    If Target.Column < 6 Then


Um bei Zeitänderungen die Farbe wieder zurückzunehmen, braucht es dann auch noch eine Änderung …


das könnte insgesamt dann so aussehen:

Zitat:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 6 Then
Cells(Target.Row, 9).Resize(1, Columns("ZZ").Column - 8).Interior.Color = xlNone
Range(Cells(Target.Row, Application.Match(Cells(Target.Row, 6), Range("A3:ZZ3"), 0)), _
Cells(Target.Row, Application.Match(Cells(Target.Row, 7), Range("A3:ZZ3"), 0))).Interior.Color = 65535
End If
End Sub
Hallo Klaus Dieter,


Änderungen einer Zeit wirken sich auf die gesamte Restliste aus. Es müssen also alle Folgezeilen neu gezeichnet werden. Werde das Makro entsprechend umbauen. Melde mich wieder, wenn das fertig ist.

Hallo Klaus Dieter,

habe das umgebaut.
Hallöchen,

Zitat:Änderungen einer Zeit wirken sich auf die gesamte Restliste aus.
  :98:
Hallo alle zusammen,

frohe Ostern erst mal.

Klaus-Dieter, Eingaben müßen lediglich in C, D und E erfolgen. Alles ander sollte sich selbst dann berechnen und entsprechend die Zeitstrahle anzeigen.

Das einzige was 1 mal manuel eingegeben werden muß (soll) ist F4, der Starting point.

Vielen Dank alle zusammen Smile
Echt super nett von euch.

Best Oster Grüße,
KD
Seiten: 1 2