Einzelne Gruppierung aufklappen

Forumthread: Einzelne Gruppierung aufklappen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Einzelne Gruppierung aufklappen

07.02.2025 12:20:18

Mister-B

Hallo Zusammen,

wie kann ich mit VBA eine einzelne Gruppierung in einer Tabelle, die sich z.B. über die Spalten D - P erstreckt, aufklappen?

Im Netz finde ich nur wie man alle Gruppierungen in einer Tabelle auf- oder zuklappen kann.

Danke und Gruß
Martin

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Einzelne Gruppierung aufklappen

07.02.2025 12:29:22

{Boris}
AW: Einzelne Gruppierung aufklappen

07.02.2025 12:55:55

Mister-B
AW: Einzelne Gruppierung aufklappen

07.02.2025 12:49:54

Raimund
AW: Einzelne Gruppierung aufklappen

07.02.2025 13:30:43

Mister-B

AW: Einzelne Gruppierung aufklappen

07.02.2025 12:29:22

{Boris}

Hi,

z.B. mit der Excel4Macrofunktion SHOW.DETAIL.
Aber zeig doch mal bitte ne kleine Beispieldatei.

VG, Boris

AW: Einzelne Gruppierung aufklappen

07.02.2025 12:55:55

Mister-B

Hallo Boris,

leider kann ich die Datei auf Grund der Größe und des Inhalts nicht hochladen. In der Anlage sieht du hoffentlich mein Vorhaben. Ich möchte, wenn ich die Schaltfläche links betätige, dass die Gruppierung für das aktuelle Jahr aufklappt.

Ich habe es mit

If Year(Date) = "2025" Then ExecuteExcel4Macro Show.DETAIL(2, 109, True, 1)

versucht, bekomme die Fehlermeldung "Objekt erforderlich".

Gruß
Martin

Userbild

AW: Einzelne Gruppierung aufklappen

07.02.2025 12:49:54

Raimund

Hi Martin

Versuche es damit:

Sub AufklappenGruppierung()

    ' Definiere das Arbeitsblatt

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1") ' Ersetze "DeinArbeitsblattName" mit dem tatsächlichen Namen des Arbeitsblatts



    ' Klappe die Gruppierung in den Spalten D bis P auf

    ws.Columns("D:P").EntireColumn.Hidden = False

End Sub

Sub ZuklappenGruppierung()

    ' Definiere das Arbeitsblatt

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1") ' Ersetze "DeinArbeitsblattName" mit dem tatsächlichen Namen des Arbeitsblatts



    ' Klappe die Gruppierung in den Spalten D bis P zu

    ws.Columns("D:P").EntireColumn.Hidden = True

End Sub

gruss

Raimund

AW: Einzelne Gruppierung aufklappen

07.02.2025 13:30:43

Mister-B

Danke, Raimund. Das macht genau das was ich wollte!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!