Sub MWZeilenAusblenden()
ActiveSheet.[A4:A65536].SpecialCells(xlCellTypeConstants, 2).EntireRow.Hidden = True
ActiveSheet.Columns("AW:IV").Hidden = True
End Sub
Sub MWZeilenAnschlagen()
ActiveSheet.Rows.Hidden = False
ActiveSheet.Columns.Hidden = False
End Sub