Makro - Spalten ausblenden
03.01.2017 14:39:08
Anni
ich bin Makro-Neuling, habe mich aber an dem folgenden probiert:
Sub Hide_Collumns()
Dim rng As Range, C As Range
Set rng = Range("J77:CO77")
Application.ScreenUpdating = False
For Each C In rng.Cells
If Year(Range("D17")) = C Then
Columns(C.Column).Hidden = False
Else
Columns(C.Column).Hidden = True
End If
Next C
End Sub
Zelle D17: Start Datum (Format TT.MM.YYYY)
Zelle D22: End Datum (Format TT.MM.YYYY)
In Zeile 77 stehen die Jahreszahlen:
2017 (J77) bis 2100 (CO77) in Spalten J bis CO
Nun möchte ich mit einem Makro die Jahre (Spalten) ausblenden, die nicht in dem Zeitraum zwischen Start- und End Datum liegen.
Jetzt kommt leider die Fehlermeldung
"Argument nicht optional".
Außerdem fehlt mir die Dynamik in dem Makro.
Immer wenn sich Zelle CP187 ändert, sollen sich die Spalten mit den Jahreszahlen wieder an den Zeitraum anpassen.
Wäre super, wenn mir jemand helfen könnte!
Gruß, anni