Spalten bei bestimmten Wert ausblenden per Vba

Sub SpaltenNachBedingungAusblenden()

Dim ws As Worksheet

Dim rng As Range

Dim cell As Range

Dim checkRow As Long

Dim colsToCheck As String





Set ws = ActiveSheet

checkRow = 4

colsToCheck = "A,B,C,D,E,F" ' Zu prüfende Spalten



Application.ScreenUpdating = False





Set rng = ws.Range(colsToCheck)



For Each cell In rng.Cells

' Prüfe nur die festgelegte Zeile

If cell.Row = checkRow Then

If cell.Value = 0 Or _

LCase(cell.Value) = "spalten ausblenden" Then

cell.EntireColumn.Hidden = True

Else

cell.EntireColumn.Hidden = False

End If

End If

Next cell



Application.ScreenUpdating = True

MsgBox "Spalten wurden basierend auf Zeile " & checkRow & " verarbeitet., vbInformation"

End Sub