Ich habe folgendes problem. Ich habe mir in Excel einen Projektnetzplan gebaut. Jetzt möchte ich über ein Makro Spalten ausblenden, damit nur der entsprechende Zeitraum von... bis.... dargestellt wird.
Der Netzplan ist auf Tagesbasis, d.h. ein Jahr dargestellt sind ungefähr 220 Spalten (nur Arbeitstage).
Ich habe schon ein Programm geschrieben, aber das dauert ziemlich lange, bis alles durchgerödelt ist. Bin mir sicher, dass das auch schneller ginge.
Das Programm vergleicht das Startdatum (Zelle D2) bzw. Enddatum (D3) mit der Zeile 5, wo alle fortlaufenden Daten stehen. Dann über Wenn abfrage, kleiner Startdatum und größer Enddatum wird ausgeblendet.
Weiss jemand, wie das schneller zu lösen ist?
Danke schonmal im voraus.
Programmcode:
Sub SpaltenAusblenden()
Dim Datum1 As Date
Dim Datum2 As Date
Dim i As Integer
Datum1 = CDate(Worksheets("Projectplan").Range("D2"))
Datum2 = CDate(Worksheets("Projectplan").Range("D3"))
Application.ScreenUpdating = False
Columns.Hidden = False
For i = 11 To Columns.Count
If CDate(Cells(5, i)) Datum2 Then
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub