Ein-Ausblenden in einzelnen Arbeitsblätter
27.12.2017 13:12:13
Werner
Würdet Ihr mir bitte einen Tipp geben bezüglich Ein-Ausblenden.
Ich habe Arbeitsblätter von Januar - Dezember und in denen möchte ich ein Teil Aus-Einblenden. Ich habe jetzt unten stehendes, aber in der Jahresübersicht und bei dem Arbeitsblatt Feiertage usw. soll es nicht ausgeblendet werden. Wie kann man es schreiben?
LG Werner
Sub AusEinblenden()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Range("J:AL").EntireColumn.Hidden = Not (.Range("J:AL").EntireColumn.Hidden)
End With
Next ws
End Sub