Gantt-Plan , Problem bei "Kalenderwochen-Ansicht"
29.10.2006 20:37:33
Kai
habe einen Gantt-Plan auf Basis eines Kalenders erstellt (Tage, an denen Aktivitäten stattfinden werden mit Bedingter Formatierung farbig unterlegt). Ich möchte natürlich kein Tabellenblatt mit 200 Tagen ausdrucken, habe deshalb nach Schels "Projektmanagement mit Excel" eine VBA-Prozedur "Nur Kalenderwochen anzeigen" erstellt.
Code:
_____________________________________
Sub zeitachseKW()
Dim i, x As Integer
zeitachseTage
Range("BeginnZeitachse").Select
i = ActiveCell.Column
Application.ScreenUpdating = False
Do While i < 200
If Cells(1, i) = "" Then
Cells(3, i).EntireColumn.Hidden = True
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub
__________________________________
Diese relativ simple Lösung funktioniert, führt aber dazu, dass nur noch die Montage angezeigt werden (weil sich in den Zellen über dem Wochentag Montag jeweils die Kalenderwochen-Angabe befindet).
Problem dabei:
Balken die zwisschen Dienstag und Sonntag angesiedelt sind, verschwinden aus der Tabellenblatt-Ansicht.
Ich hätte nun gerne, dass alle Montage, bei welchen an den darauffolgenden Tagen Aktivitäten stattfinden, in der komprimierten Kalenderwochenansicht durch eine farbig unterlegte Zelle gekennzeichnet werden.
Über VBA lässt sich das sicherlich lösen, übersteigt jedoch meine Fähigkeiten.
Könnt ihr mir helfen?
Gruß,
Kai