Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spalten/Zeilen aus- und einblenden

Gruppe

Bereich

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich