Hallo Community,
ich habe eine Tabelle mit mehreren Gliederungsebenen (1-5).
Nun möchte ich nur die Gliederungsebene 5 anzeigen lassen und dabei 1-4 ausblenden.
Ist sowas irgendwie möglich?
Oder kann ich irgendwie eine Formel benutzen, um die Gliederungsebene auszulesen und danach zu filtern?
Das würde mir stundenweise Arbeit ersparen.
Gruß
Hi
Zitat:Das würde mir stundenweise Arbeit ersparen.
Da du für Zeitersparnis bist.
Stell ein Bsp.Datei ein oder Beschreibe es so, dass auch einer der die Datei nicht kennt sich da rein versetzten könnte.
Datei mit Wunschergebnis!
Gruß Elex
Hallo Danke für den Tipp.
Die Beispieldatei habe ich beigefügt.
Das Ziel ist:
Am Ende sollen nur die Zeilen stehen bleiben, die Hierarchiestufe 4 haben (in blau markiert)
Rest soll ausgeblendet sein.
Ich möchte danach nämlich eine Formel runterziehen, die NUR Hierarchiestufe 4 betrifft.
Hi
Also dein Anliegen ist schon speziell und sicher nur mit VBA machbar.
Die gewünschten Zeilen kannst du so anzeigen.
Code:
Sub Makro2()
Dim c As Range
ActiveSheet.UsedRange.Rows.Hidden = True
For Each c In ActiveSheet.UsedRange.Rows
If Rows(c.Row).OutlineLevel = 6 Then c.Hidden = False
Next c
End Sub
Wenn du jetzt eine Formel runterziehst, wird die aber trotzdem auch auf die ausgeblendeten Zellen übernommen. Also wäre das Eintragen der Formel dann auch gleich mittels VBA sinnvoll.
Kommt VBA in Frage. Wenn ja wie schaut die Formel aus.
Gruß Elex
Hallo
Ich würde anstelle von Gliederungsebenen mit Datenschnitte arbeiten, wenn das ganze richtig sehe ohne die Datei angeschaut zuhaben.
wow danke dir klappt mega.
Die Formel ist ein Sverweis. und ich brauche das in verschiedenen Spalten.
Gibt es ein Makro welches folgendes macht:
Ich habe eine Formel z.b. in B5.
Die Formel wird automatisch runtergezogen nur in die sichtbaren Zellen (dein vorheriges Makro hätte ich davor noch aktiviert)
Ich kann im Makro dann sagen ziehe von B5 bis B2000
Du bist echt der hammer bisher =) danke
Hi
Wie geschrieben, mit runterziehen geht es nicht. Aber Formel nur in die richtigen Zeilen kopieren könnte so gehen.
Code:
Sub Makro3()
Dim c As Range
Range("B5").Copy
For Each c In ActiveSheet.UsedRange.Rows
If Rows(c.Row).OutlineLevel = 6 Then Cells(c.Row, 2).PasteSpecial
Next c
End Sub
Gruß Elex