Startseite

Spalten und Zeilen ausblenden

Mit diesem Makro können alle Spalten neben der Tabelle und alle Zeilen unter der Tabelle ausgeblendet werden.
Sub spalten_und_zeilen_ausblenden()
' Blendet leere Spalten und Zeilen neben bzw. unter der Tabelle aus
Range(Chr(Range("IV1").End(xlToLeft).Column + 65) & 1, "IV1").EntireColumn.Hidden = True
Range("A" & Range("A65536").End(xlUp).Row + 1, "A65536").EntireRow.Hidden = True
End Sub

Code eingefügt mit: Excel Code Jeanie