Bisher sieht es so aus, nun müsste der Wert "B" auf die Zelle A1 verweisen.
Dim colIndex As Long
Dim rngRange As Range
For Each rngRange In Worksheets("Tabelle1").Range("A2:z2")
If rngRange.Value = "B" Or rngRange.Value = "*" Then
rngRange.EntireColumn.Hidden = False
Else
rngRange.EntireColumn.Hidden = True
End If
Next
End Sub
Danke & Grüsse Christian