Vielen Dank für eure Hilfe im Vorraus
Sub AG()
Columns("H:IV").Select
Selection.EntireColumn.Hidden = True
Rows("57:65536").Select
Selection.EntireRow.Hidden = True
End Sub
Option Explicit
Sub Ausblenden()
Columns("H:IV").EntireColumn.Hidden = True
Rows("57:65536").EntireRow.Hidden = True
End Sub
Sub Einblenden()
Columns("H:IV").EntireColumn.Hidden = False
Rows("57:65536").EntireRow.Hidden = False
End Sub