Ausblenden/Einblenden von Gruppen von Zellen in excel mit Knopf

Sie nicht nur aus einem Gebiet wie MattCrum erwähnt hat.

Sie haben 3 Möglichkeiten soweit ich bin besorgt

Nun, so stellen Sie sicher, dass Sie etwas(Daten - nicht leere Zellen) in der Range 32:51 und Ihrer Haupt-Blatt ist entweder Sheet1 oder ändern Sheet1 im code entsprechend Ihrer Arbeitsblätter name

1)
in VBE ( Visual Basic Editor ) Doppelklick ThisWorkbook im project explorer und fügen Sie diesen code

Private Sub Workbook_Open()
    ThisWorkbook.Sheets("Sheet1").Rows(32 & ":" & 51).hidden = True
End Sub

Rechten Maustaste auf den Ordner Modules und Insert eine neue Module, dann fügen Sie diesen code

Sub unhide()
    ThisWorkbook.Sheets("Sheet1").Rows(32 & ":" & 51).hidden = False
End Sub

Nun, fügen Sie eine Schaltfläche auf das Tabellenblatt mit der rechten Maustaste und makro zuweisen genannt unhide zu.

Speichern Sie die änderungen und speichern Sie Ihre Arbeitsmappe als *.xlsm Datei

Bemerken, wenn Sie die Arbeitsmappe öffnen, jetzt, Zeilen 32 bis 51 versteckt sind. Ein Klick auf die Schaltfläche blenden Sie.

2) Sie können die schriftart ändern, Farbe auf weiß zu "hide" den Inhalt.

Folgen Sie Schritt 1, und ersetzen

ThisWorkbook.Sheets("Sheet1").Rows(32 & ":" & 51).hidden = True

mit diesem

ThisWorkbook.Sheets("Sheet1").Range("B32:R51").Font.Color = RGB(255, 255, 255)

und den code in die Module ( die unhide Unterroutine )mit

ThisWorkbook.Sheets("Sheet1").Range("B32:R51").Font.Color = RGB(0, 0, 0)

Nun funktioniert alles ähnlich wie in Schritt 1, außer Sie sind "hiding"(ändern) die Schrift-Farbe statt ausblenden von Zeilen. Nicht ein großer Ansatz, aber wenn es funktioniert, dann cool

3) Folgen Sie Schritt 1 und ersetzen Sie den code unter ThisWorkbook mit

Option Explicit

Private Sub Workbook_Open()

    Application.ScreenUpdating = False

    Set ws = ThisWorkbook.Sheets("Sheet1")

    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "hiddenSheet"
    Set hs = ThisWorkbook.Sheets(Worksheets.Count)
    hs.Visible = xlSheetHidden

    ws.Range("B32:R51").Select
    Selection.Copy

    With hs
        .Activate
        .Range("B32").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
    End With

    ws.Activate
    ws.Rows(32 & ":" & 51).Delete

    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call deleteHidden(Worksheets.Count)
End Sub

Und den code in die Module1 mit

Option Explicit
Public ws As Worksheet, hs As Worksheet

Sub unhide()
    With hs
        .Activate
        .Rows("32:51").Select
        Selection.Copy
    End With
    With ws
        .Activate
        .Rows("32:32").Select
        Selection.Insert Shift:=xlDown
    End With
End Sub

Sub deleteHidden(num&)
    Application.DisplayAlerts = False
    Worksheets(num).Delete
    Application.DisplayAlerts = True
    Set hs = Nothing
End Sub