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 i 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
wsMaster.Cells.EntireColumn.Hidden = False
If InStr(wbName, arrDateiNamen(i, 1)) > 0 Then
If IsEmpty(arrDateiNamen(i, 2)) = True And wbName = cWSMASTER Then
Exit For
End If
Else
End If
Debug.Print VarType("L:M") & " " & "L:M" & ";" & "A"
wsMaster.Columns("L:M" & ";" & "A").EntireColumn.Hidden = True
Next
End Sub