folgendes zur Vorgeschichte:
Ich habe eine Exceltabelle, in der in jeder Spalte ein Datum (Zeile 6) steht (also vom 1.1.2017 - 31.12.2017) und darüber die jeweilige KW(Zeile 4) (1-52).
Jetzt hab ich ein Makro produziert, dass gewisse Spalten ausblendet und so ist immer nur noch die aktuelle KW, eine Woche vorher und 4 Wochen danach sichtbar sind.
Hier das Programm:
Private Sub Worksheet_Activate()
Dim lCol As Long
Dim dtStart As Date, dtEnd As Date
Application.ScreenUpdating = False
dtStart = DatePart("ww", Date, vbMonday, vbFirstFourDays) - 1
dtEnd = DatePart("ww", Date, vbMonday, vbFirstFourDays) + 4
For lCol = 4 To UsedRange.Columns.Count
Cells(4, lCol).EntireColumn.Hidden = (Cells(4, lCol) _
dtEnd)
Next lCol
End Sub
Ich möchte jetzt aber gerne, dass vom aktuellen Datum aus, 7 TAGE vorher und 28 TAGE danach angezeigt werden. Also nicht wie zuvor Wochen. :DWenn ich die DatePart Funktion mit "d" umschreibe klappt es leider nicht.
Also so:
Private Sub Worksheet_Activate()
Dim lCol As Long
Dim dtStart As Date, dtEnd As Date
Application.ScreenUpdating = False
dtStart = DatePart("d", Date, vbMonday, vbFirstFourDays) - 7
dtEnd = DatePart("d", Date, vbMonday, vbFirstFourDays) + 28
For lCol = 4 To UsedRange.Columns.Count
Cells(6, lCol).EntireColumn.Hidden = (Cells(6, lCol) _
dtEnd)
Next lCol
End Sub
Kann mir jemand helfen und verraten wo mein Fehler liegt?Liebste Grüße
Nadine