Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim i As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For i = 1 To Len(WS2.Range("A1"))
WS1.Columns(Mid(WS2.Range("A1"), i, 1)).Hidden = True
Next i
End Sub
Sub Ausblenden2()
Dim TB1, TB2, Arr, Trenner As String, i As Integer
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
Trenner = ";"
TB1.Cells.EntireColumn.Hidden = False
Arr = Split(TB2.Cells(1, 1), Trenner)
For i = 0 To Ubound(Arr)
TB1.Columns(Arr(i)).EntireColumn.Hidden = True
Next
End Sub
LG UweD