Gruppe
Allgemein
Bereich
Bereich
Thema
Spalten/Zeilen aus- und einblenden
Problem
Wie kann ich die Zeilen unterhalb des Cursors und die Spalten rechts des Cursors aus- bzw. einblenden?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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