Gruppe
Allgemein
Problem
Wie kann ich die Zeilen unterhalb des Cursors und die Spalten rechts des Cursors aus- bzw. einblenden?
StandardModule: basMain
Sub HideUnHide()
If Rows(ActiveCell.Row + 1).Hidden = False Then
Rows(ActiveCell.Row + 1 & ":" & Rows.Count).Hidden = True
Range(ActiveCell.Offset(0, 1), _
Range("IV" & ActiveCell.Row)).EntireColumn.Hidden = True
Else
Columns.Hidden = False
Rows.Hidden = False
End If
End Sub