Gliederung / Gruppierung

Forumthread: Gliederung / Gruppierung

17.01.2025 16:09:37

JRH_Han

Hallo in die Runde,

ich brauche ein VBA-Makro, mit dem ich in einem Arbeitsblatt Zeilen gruppieren kann. In der Tabelle ist in Spalte A und B eine Formel hinterlegt, die entweder in Spalte A oder in Spalte B eine in der Spalte fortlaufende Zahl anzeigt, sobald in Spalte C eine Eintragung gemacht wurde.

Beispiel (es handelt sich um eine Tabelle zum Moneymanagement eines Aktiendepots):
Ich habe 3 einzelne Positionen der Aktie X an verschiedenen Tagen mit verschiedenen Positionsgrößen / Preise eröffnet.
In dem Fall wird in Spalte C in 4 aufeinanderfolgenden Zeilen "Aktie X" eingetragen.
In der ersten dieser Zeilen wird dann durch die Formel eine Zahl in Spalte A und den anderen Zeilen eine Zahl in Spalte B eingetragen. In der Zeile mit der Zahl in Spalte A werden dann in anderen Spalten die Werte der einzelnen Positionen aufsummiert.

Aus Gründen der Übersichtlichkeit möchte ich deshalb in der Lage sein, die Zeilen mit den Einzelpositionen auszublenden (also die, bei denen in Spalte B eine Zahl steht), um nur die Übersichtszeilen (also die, bei denen in Spalte A eine Zahl steht) zu sehen.

Bedingung für die Gruppierung ist also -> wenn in Spalte B eine Zahl steht, soll die Zeile gruppiert werden.

Danke vorab
Roger

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gliederung / Gruppierung

17.01.2025 17:02:57

Klexy
AW: Gliederung / Gruppierung

17.01.2025 17:11:19

GerdL
AW: Gliederung / Gruppierung

20.01.2025 17:20:53

JRH_Han
AW: Gliederung / Gruppierung

17.01.2025 17:08:41

JRH_Han

AW: Gliederung / Gruppierung

17.01.2025 17:02:57

Klexy

Das geht so:



Option Explicit



Sub Nach_Spalte_A_Gruppieren()

Dim Bereich As Range, b As Range

    Set Bereich = Intersect(Sheets("XXX").UsedRange, Sheets("XXX").Columns(1))

    For Each b In Bereich

        If b = "" Then

            b.EntireRow.Hidden = True

        Else

            b.EntireRow.Hidden = False

        End If

    Next b

End Sub



Sub Gruppierung_aufheben()

    Cells.EntireRow.Hidden = False

End Sub

Du musst XXX durch den tatsächlichen Blattnamen ersetzen.

AW: Gliederung / Gruppierung

17.01.2025 17:11:19

GerdL

Hallo Roger!

Sub Unit()



    Dim Z As Long

    

    For Z = 2 To Cells(Rows.Count, "B").End(xlUp).Row

       If IsNumeric(Cells(Z, "B").Text) Then Rows(Z).Group

    Next

    ActiveSheet.Outline.ShowLevels RowLevels:=2



End Sub

Gruß Gerd

AW: Gliederung / Gruppierung

20.01.2025 17:20:53

JRH_Han

Hallo Gerd,

vielen Dank - das ist perfekt!!

Gruß
Roger

AW: Gliederung / Gruppierung

17.01.2025 17:08:41

JRH_Han

Super - Danke Dir. Werde ich nächste Woche probieren.

Eines noch - wie lautet der Code, wenn ich das Makro durch Tastenkombination im jeweils aktuellen Arbeitsblatt ausführen möchte?

Forumthread: Gliederung / Gruppierung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread