VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Spalten/Zeilen aus- und einblenden

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

    


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