Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten Gruppieren

Spalten Gruppieren
11.11.2022 09:58:26
Andi
Hallo,
ich möchte in meinem Excel alle Spalten, wo in Zeile 7 eine 0 eingetragen ist gruppieren,
irgendwie hängt es an einer If-Anforderung, könnt ihr mir helfen?
Danke und VG Andi

Private Sub View()
Dim Zeile As Integer
Dim Spalte As Integer
Dim Sheet As String
Dim lastCol As Integer
'KONFIG ================
Zeile = 7
Sheet = "data"
'STARTPARAMTER =========
lastCol = Sheets(Sheet).Cells(Zeile, 1000).End(xlToLeft).Column 'liest die letzte Spalte aus
Worksheets(Sheet).Activate
ActiveSheet.Cells.Columns.Ungroup 'löst sämtliche Gruppierungen auf
'DURCHLAUF =============
For Spalte = 1 To lastCol
If Sheets("data").Cells(Zeile, Spalte).Value = 0 Then Sheets("data").Cells(Zeile, Spalte).EntireColumn.Group
Next
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten Gruppieren
11.11.2022 12:08:47
MCO
Hallo Andi!
Versuchs mal damit:
  • Sheet ansprechen vereinfacht

  • Code gekürzt

  • Errorhandler eingebaut (lief auf Fehler, wenn keine Gruppierung vorhanden war)

  • Spaltenzahl ermitteln verallgemeinert

  • 
    Private Sub View()
    Dim Zeile As Integer
    Dim Spalte As Integer
    Dim Sheet As Worksheet
    Dim lastCol As Integer
    'KONFIG ================
    Zeile = 7
    Set sh = Sheets("data")
    On Error Resume Next
    With Sheet
    'STARTPARAMTER =========
    lastCol = .Cells(Zeile, .Columns.Count).End(xlToLeft).Column 'liest die letzte Spalte aus
    .Cells.Columns.Ungroup 'löst sämtliche Gruppierungen auf
    'DURCHLAUF =============
    For Spalte = 1 To lastCol
    If .Cells(Zeile, Spalte).Value = 0 Then .Cells(Zeile, Spalte).EntireColumn.Group
    Next
    .Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    End With
    End Sub
    

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige