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