langsame Schleife zur Spaltenausblendung
01.12.2014 13:35:39
Andi
habe einen umfangreichen Kalenderbereich, der mittels der nachfolgenden Schleife automatisch angepasst wird. Nach Ermittlung der Min und Max Datumswerte gebe ich jeweils noch ein wenig Zeit drauf und lasse dann die ungenutzten Spalten ausblenden.
Hat jemand einen Tipp, wie das schneller laufen könnte? Die Schleife ist doch sehr langsam.
Danke i.Voraus & Gruß
Sub Kalender_unbenutzt_ausblenden()
Dim rngKal As Range
Dim Stdat As Date
Dim Etdat As Date
Dim Sdat As Date
Dim Edat As Date
'Letzte Zeile
Lastz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
' Min aus Soll-Start
Stdat = WorksheetFunction.Min(Range("JW10:Jw" & Lastz))
' minus 2 Monate
Sdat = DateSerial(Year(Stdat), Month(Stdat) - 2, 1)
' Max aus PrognoseEnde
Etdat = WorksheetFunction.Max(Range("JZ10:JZ" & Lastz))
' plus 2 Monate
Edat = DateSerial(Year(Etdat), Month(Etdat) + 3, 0)
' Schleife über Kalender
Application.ScreenUpdating = False
For Each rngKal In Range("F8:JE8") 'Bereich der Datumsangaben
rngKal.EntireColumn.Hidden = rngKal.Value Edat
Next rngKal
Application.ScreenUpdating = True
End Sub