01
02
03
04
05
06
07
08
09
10
11
12
13 |
|
Option Explicit
Option Compare Text
Sub Ausblenden()
Dim oRng As Range, sBer As String
For Each oRng In Range("B20:AC20")
If oRng.Value Like "X" Then sBer = sBer & oRng.Address(0, 0) & ","
Next oRng
If sBer <> "" Then
Range(Left$(sBer, Len(sBer) - 1)).EntireColumn.Hidden = True
End If
End Sub
|