Zellen nach Datum einfärben, wie Phasendiagramm?

Computer: Software & Programmierung Office Software
1

Hallo Reinhard,
ich habe schon wieder die nächste Frage und hoffe, dass sie in einem neuen Thema richtig aufgehoben ist:

Bezogen auf meine Quelldatei im Artikel http://www.wer-weiss-was.de/app/service/board_navi?j…
habe ich noch eine Frage. In der Realität steht in der Mastertabelle ein zweites Datum, das den Projektstart angibt (Also RO1Star, RO2Start etc.). In einer neuen Ansicht, ähnlich zu „Quartalsansicht“ möchte ich anstelle von Project1, Project2 etc. nun RO1, RO2 etc. reinschreiben und in der Quartalsansicht die Zellen zwischen dem dazugehörigen Start- und Enddatum farbig einfärben, wie bei einem Phasen- bzw. Balkendiagramm.

Das müsste doch mit derselben Systematik zu machen sein, oder habe ich einen Denkfehler? „Function“ mit Quartal aus Start- und Enddatum, Anzahl der dazwischen liegenden Quartale zählen, jedes Quartal besteht aus zwei Zellen und die Anzahl daraus einfärben??

Könntest Du bzw. Ihr mir nochmal helfen?
Vielen Dank
Tina

2

Bezogen auf meine Quelldatei im Artikel
http://www.wer-weiss-was.de/app/service/board_navi?j…
habe ich noch eine Frage. In der Realität steht in der
Mastertabelle ein zweites Datum, das den Projektstart angibt
(Also RO1Star, RO2Start etc.). In einer neuen Ansicht, ähnlich
zu „Quartalsansicht“ möchte ich anstelle von Project1,
Project2 etc. nun RO1, RO2 etc. reinschreiben und in der
Quartalsansicht die Zellen zwischen dem dazugehörigen Start-
und Enddatum farbig einfärben, wie bei einem Phasen- bzw.
Balkendiagramm.

Hallo Tina,

dann nimm doch die vorhandene Beispieldatei, füge da ggfs im „master“ da dieses zweite Datum ein, dann neues Blatt anlegen und manuell einfärben wie es aussehen soll und mit Werten befüllen und hochladen.

Gruß
Reinhard

3

Hallo Tina,

Hallo Reinhard,

dann nimm doch die vorhandene Beispieldatei, füge da ggfs im
„master“ da dieses zweite Datum ein, dann neues Blatt anlegen
und manuell einfärben wie es aussehen soll und mit Werten
befüllen und hochladen.

siehe „Quartalsübersicht4“ unter:
http://www.hostarea.de/server-08/August-c960a97b0e.xls

Gruß
Reinhard

Vielen Dank und Grüße zurück
Tina

4

Hallo Tina,

hast du nicht gesagt 2 Zellen pro Quartal, wieso sind da jetzt 3 ?

Ich schaue morgen mal drüber, bin müd.

Gruß
Reinhard

5

Hallo Tina,

hast du nicht gesagt 2 Zellen pro Quartal, wieso sind da jetzt
3 ?

Das ist eine neue Ansicht, die wenn möglich monatsgenau sein sollte. D.h. wenn das Startdatum der 20.3.08 ist, dann sollte auch die 3. Spalte in 2008 die erste gefärbte Zelle sein. Du hast natürlich Recht,ist von der Systematik her etwas anders…

Ich schaue morgen mal drüber, bin müd.

Gruß
Reinhard

Grüße zurück
Tina

6

Danke für die Hilfe, habe eine Lösung!
Hallo Reinhard und alle anderen,
danke für Eure Hilfe bisher, habe eine Lösung gefunden: Lese das Datum in ein Array ein, daher der xString und baue mir aus den Monaten die zugehörige Spalte:

With Workbooks("Zieldatei.xls").Worksheets("Phasen")
 ZeiP = Awf.Match("Q1", .Columns(3)) + 1

'\*\*\*1.ProjectPhase
If xString(4, x) \> 2007 Then '\*\*\*Anfangsjahr
QZeile = 3
SpaQ1 = Awf.Match((xString(4, x)), Rows(1), 0)
 SpaQ1 = SpaQ1 + (Month(wksM.Cells(ZeiM, SpaM)) - 1) '\*\*\*Anfangsdatum der Phase
SpaQ2 = Awf.Match((xString(4, x)), .Rows(ZeiP - 2), 0)
 SpaQ2 = SpaQ2 + (Month(wksM.Cells(ZeiM, SpaM)) - 1) '\*\*\*Enddatum der Phase

Range(.Cells(QZeile, SpaQ1), .Cells(QZeile, SpaQ2)).Select '\*\*\*zu färbende Zeile
Selection.Interior.ColorIndex = 20
End If

Hoffe, es hilft! Habe viel gelernt und komme sicher mit den nächsten Fragen!

Grüße
Tina