Gliederung ein- bzw. ausblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Galenzo,

erst mal lieben Dank für den Code; habe ich gleich ausprobiert und funktioniert auch so weit ganz prima :-)

Leider gibt es da noch ein weiteres Problem.

Habe mal eine Musterdatei zum Server hochgeladen; ist dann einfacher nachzuvollziehen:

Die Datei https://www.herber.de/bbs/user/866.xls wurde aus Datenschutzgründen gelöscht

In der Tabelle Stammdaten habe ich leider nicht nur die Zelle F24, die Zeilen entsprechend ausblenden soll. Es gibt noch weitere 14 Zellen, die den gleichen Effekt auslösen sollen. D.h. sobald Text für einen Auftrag in "Stammdaten" eingegeben wird, sollen die entsprechenden Zeilen in "Transporte" eingeblendet werden.

Muss ich dann nur entsprechend viele Gliederungsebenen einrichten und deinen Code für jede weitere Zelle kopieren und anpassen?

Gruss
Kirsten

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim c As Range If Not Intersect(Target, Range("meinBereich")) Is Nothing Then Sheets("Transporte").Outline.ShowLevels RowLevels:=1 For Each c In Range("meinBereich") If Not IsEmpty(Cells(c.Row, c.Column).Value) Then i = ((c.Row / 2) - 11) * 17 Sheets("Transporte").Rows(i).ShowDetail = True End If Next End If End Sub

Das Gruppieren von Zeilen oder Spalten:
Markiere die Zeilen, die gegliedert werden sollen.
"Daten/Gruppierung und Gliederung/Gruppierung" gruppiert diese markierten Zeilen,
so daß sie aus-/eingeblendet werden können. Wenn du Zeilen markierst und gruppierst,
die INNERHALB einer solchen (schon erstellten) Gruppierung liegen, wird eine weitere Gliederungsebene angelegt usw.
Somit kannst du deine Daten dann schrittweise immer weiter detailliert ein-/ausblenden.
Die Stufe der Gliederungsebene wird oben links angezeigt (kleine Buttons mit Zahlen).
Klickst du darauf, werden alle Gliederungen dieser Stufe geöffnet/geschlossen.

In deinem Beispiel hast du nur EINE Gliederungsebene, nämlich "1".
Wenn du die Zeile:
Sheets("Transporte").Outline.ShowLevels RowLevels:=1
meinst --> diese Zeile schließt zunächst erstmal alle offenen Gliederungsebenen der Tabelle "Transporte", bevor dann im nächsten Schritt die gewünschten Ebenen wieder eingeblendet werden.

Ich hoffe, ich konnte dir etwas weiterhelfen.
Falls nicht, mache bitte im Forum einen neuen Beitrag - dieser hier steht mittlerweile soweit unten, daß ich da garnicht mehr nachschaue.

mfg - Galenzo

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F24")) Is Nothing Then Sheets("Transporte").Outline.ShowLevels RowLevels:=5 Sheets("Transporte").Activate End If End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread