|
Hallo zusammen,
ich habe eine Datei mit mehreren Tabellenblättern. Jedes Blatt steht für einen Mitarbeiter und enthält alle Kalenderwochen des Jahres.
In Zelle b5 wird mit immer wie aktuelle Kalenderwoche angezeigt.
Jetzt möchte ich ein Makro erstellen, das automatisch alle vergangenen Kalenderwochen ausgeblendet werden.
Bisher habe ich folgenden Ansatz:
Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xCell As Range
If Target.Address <> Range("B5").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("C7:BC7")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
Allerdings funktioniert das ganze irgendwie nicht automatisch und mit einem Button kann ich es auch nicht verknüpfen.
Freue mich über jede Hilfe!
Teresa
|