Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Dim lngStep As Long
Set objRange = Intersect(Target, Range(Cells(5, 4), Cells(9, 4)))
If Not objRange Is Nothing Then
For Each objCell In objRange
Columns(objCell.Row).EntireColumn.Hidden = objCell.Value = 0
Next
Set objRange = Nothing
End If
If Not Intersect(Target, objRange) Is Nothing Then
For Each objCell In objRange
With Tabelle4
.Range(.Columns(objCell.Row + 5 + lngStep), .Columns(objCell.Row + 7 + lngStep)).EntireColumn.Hidden = objCell.Value = vbNullString
End With
lngStep = lngStep + 3
Next
End If
End Sub