Hallo,
hehe fand ich auch, ist ja auch von mir...;-)....so die Richtung:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Dim lngStep As Long
Set objRange = Range(Cells(4, 4), Cells(9, 4))
If Not Intersect(Target, objRange) Is Nothing Then
For Each objCell In objRange
With Tabelle2
.Range(.Columns(objCell.Row + 5 + lngStep), .Columns(objCell.Row + 7 + lngStep)).EntireColumn.Hidden = objCell.Value = vbNullString
End With
lngStep = lngStep + 3
Next
End If
Set objRange = Nothing
End Sub
Gruß,
|