Button um Bereiche aus- und einzublenden
15.02.2020 15:21:30
Sebastian
ich habe in einem Exceltabellenblatt einen Kopfbereich mit Überschriften (Zeile 1 Überschrift 1 bis Zeile 3 Überschrift drei).
Dieser Bereich ist immer sichtbar (Fenster für die ersten drei Zeilen eingefroren).
Darunter befinden sich Inhaltsbereiche zu den Überschriften: also z.B.
Inhaltsbereich zu Überschrift 1 von Zeile 5 bis 30
Inhaltsbereich zu Überschrift 2 von Zeile 31 bis 93 usw.
Ich möchten neben den Überschriften im eingefrorenen Überschriftenbereich ganz oben jeweils einen Commandbutton hinterlegen, der es mir ermöglicht, bei Klick darauf alle Zeilen des Tabellenblattes auszublenden AUSSER die Überschriften (Zeile eins bis drei eingefroren) und den passenden Inhaltsbereich (also bei Klick auf Commandbutton Überschrift 2 zusätzlich die Zellen 31 bis 93).
Anders gesagt sollen beim Klick auf Commandbutton Überschrift 2 Nur noch die Zellen 1-3 sowie 31 bis 93 eingeblendet sein.
Das wäre im Grunde relativ simpel und ich könnte dies selbst bewerkstelligen mit folgendem _ Makro:
Rows("4:30").Select
Selection.EntireRow.Hidden = True
Rows("94:15000").Select
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollRow = 30
Range("A1").Select
Das Problem ist aber, dass sich in dem Tabellenblatt mit der Zeit die Inhaltsbereiche vergrößern/verändern können (also Bereich 2 dann z.B. unter Umständen von Zeile 25 bis 135 geht. Dann müsste jedesmal der Code angepasst werden, was nicht durchführbar ist.
Ich stelle mir also einen Code vor, der alles ab Zeile 4 ausblendet, dann den Bereich identifiziert, der sichtbar sein soll: Suche in Spalte 4 die Zelle mit Inhalt "Bereich 2 Beginn" und die Zelle mit Inhalt "Bereich 2 Ende" und blende diese beiden Zeilen und alles dazwischen (egal wieviele Zeilen das sind) wieder ein. ...
Ich hoffe ich konnte mich verständlich machen. Über eure Hilfe würde ich mich sehr freuen. Ist leider doch etwas zu knifflig für mich.
Liebe Grüße
Sebastian
Anzeige