Private Sub Workbook_Open()
Const cTBLSETTINGS = "tblSettings"
Const cWSSETTINGS = "Settings"
Const cWSMASTER = "Master"
Dim wb As Workbook
Dim wsSettings As Worksheet
Dim wsMaster As Worksheet
Dim wbName As String
Dim arrDateiNamen As Variant
Dim arrSpalten As Variant
Dim i As Integer
Dim i2 As Integer
Dim iDateiNamen As Integer
Set wb = ThisWorkbook
Set wsSettings = wb.Worksheets(cWSSETTINGS)
Set wsMaster = wb.Worksheets(cWSMASTER)
wbName = wb.Name
arrDateiNamen = wsSettings.ListObjects(cTBLSETTINGS).DataBodyRange
iDateiNamen = wsSettings.ListObjects(cTBLSETTINGS).ListRows.Count
wsMaster.Cells.EntireColumn.Hidden = False
For i = 1 To iDateiNamen
If InStr(wbName, arrDateiNamen(i, 1)) > 0 Then
arrSpalten = Split(arrDateiNamen(i, 2), ",")
For i2 = LBound(arrSpalten) To UBound(arrSpalten)
wsMaster.Columns(arrSpalten(i2)).Hidden = True
Next
Else
End If
Next
End Sub