Spalten zählen und ausblenden
15.06.2009 19:17:19
Sophie
Ich versuche in Excel sowas ähnliches wie MS Project darzustellen (weil das so gewünscht wird, fragt aber nicht warum).
Durch Datumseingabe (für Anfang und Ende des Projekts) will ich nur den Zeitstrahl (in Kalendeswochen) darstellen, so dass man die einzelne Schritte innerhalb dieses Projektes eingeben und auf die Zeitachse übertragen kann.
So fängt bei mir in der Spalte "T" der eigentliche Kalender an (mit 1.1.2009 bzw. KW 1 2009) und endet in der Spalte "HV" mit 52. KW 2012 (soll 30.12.2009 entsprechen).
Um die Zeit (KWs), die nicht zum Projekt gehören, auszublenden, habe ich folgendes Code geschrieben:
Sub Makro_Projektplan_Zeitachse()
n = 20 'entspricht Spalte T, in der der Kalender anfängt
Do
If Cells(68, n).Value Cells(9, 238).Value Then
Columns(m).Select
Selection.EntireColumn.Hidden = True
End If
m = m - 1
Loop Until m = Cells(9, 236).Value
End Sub
Leider tut dieses Code nicht.... :(
Die End-Kalenderwoche wird richtig bestimmt, aber nicht die Anfangskalenderwoche. Abhängig von der Eingabe werden falsche Spalten ausgeblendet. Aber nicht immer! Manchmal rechnet es richtig!!!!
Ich hab rausgefunden, dass schon bei der ersten Prüfung (also, Spalte T, anstatt der einen Spalte, werden gleich 7 Spalten ausgeblendet). Und ich check einfach nicht warum....
Würde mich über Deine Hilfe sehr freuen!!!!
Einen schönen Abend,
Sophie =)