Option Explicit
Sub test()
Dim wksListe As Excel.Worksheet
Dim wksAusw As Excel.Worksheet
Dim blnSchalter As Boolean
Dim blnNullfolge As Boolean
Dim blnEnde As Boolean
Dim lngZeileV As Long
Dim lngZeile As Long
Application.ScreenUpdating = False
With ThisWorkbook
Set wksListe = .Worksheets("Liste")
Set wksAusw = .Worksheets("Auswahleinstellungen")
End With
lngZeile = 1
lngZeileV = 1
Do Until blnEnde
blnEnde = Not (lngZeile <= 14)
If blnEnde Then
blnSchalter = True
ElseIf wksAusw.Cells(lngZeile, "A").Value = 0 Then
blnSchalter = Not blnNullfolge
Else
blnSchalter = blnNullfolge
End If
If blnSchalter Then
blnSchalter = False
wksListe.Columns(lngZeileV).Resize(ColumnSize:=(lngZeile - lngZeileV)).Hidden = blnNullfolge
blnNullfolge = Not blnNullfolge
lngZeileV = lngZeile
End If
lngZeile = lngZeile + 1
Loop
wksListe.Activate
Application.ScreenUpdating = True
End Sub