Thema: Spalten/Zeilen aus- und einblenden

Download Beispiel-Arbeitsmappe

Home

Gruppe

Allgemein

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

Dynamischer Datenbereich im Diagramm	Bereich als Bild speichern.
1. freie Zelle in nicht zusammenhängenden Bereich	Bestimmtheitsmass nach vorgegebenen Bereich
Bestimmten Bereich anhand Zeilenabgabe kopieren	Bereich löschen
Array - Index außerhalb des gültigen Bereichs	zoom auf Druckbereichsbreite anpassen
Bereich syncronisieren II	Zeilenbereich auf Tabelle übertragen
Druchbereiche auf eine Seite	Definitionsbereich
Bereich von rechts nach links auslesen?	Namen definieren für bestimmten Bereich
Nur einen Eintrag im Bereich zulassen	Kommentar in erste zelle einess Bereiches
bedingte Formatierung für zellenbereich	Summewenn mit abhängigen Bereichen
Bereiche in separates sheet	Summewenn mit abhängigen Bereichen
Absturz bei lokalen Bereichsnamen	Teilbereich einer Zelle einfärben
Abfrage ob Druckbereich zu groß für Seitenbreite	Gruppierten Bereich sperren
Bestimmte Zahlen aus einem Bereich	Bereich nur unter best. Voraussetzg. summieren
Name eine benannten Bereiches finden	Farbigen Rangebereich auswählen
Wert-Suche in Bereich	Bereich als Grafik speichern
Zeile löschen in Bereich	variablen Druckbereich definieren
Wertebereich definieren	Vergleich Datum in CB mit Datum in einem Bereich
Zeilen und Spalten von Bereich markieren	verlinkungen in markiertem bereich erneuern
Differenz zweier Summe im dynamischen Bereich	Zelbereiche(Matrizen) an Variablen zuweisen
Löschen eines Bereiches	Höchsten Wert aus einem Bereich auslesen
bereichsnamen mit indirekt zusammensetzen	Copy - paste von Zellbereich in Tabelle abfangen
per Makro markierten Bereich auslesen	Teilbereich einer Arbeitsmappe speichern
Summenprodukt und Namensbereich	Vorkommen von Werten eines Bereiches zählen
Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
Bereiche festlegen / verknüpfen	bestimmten Bereich sortieren